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SUMMARY 


This  report  provides  both  a  user's  manual  and  a  detailed  descrip¬ 
tion  of  operation  for  a  general  three-dimensional  grid  generation  sys¬ 
tem  for  the  construction  of  composite  grids  in  arbitrary  regions.  The 
code  can  operate  either  as  an  algebraic  generation  system  or  as  an  el¬ 
liptic  generation  system.  Provision  is  made  for  orthogonality  at 
boundaries  and  complete  continuity  at  block  interfaces.  The  system  can 
operate  in  two  or  three  dimensions,  or  on  a  curved  surface.  The  input 
is  structured  to  be  user-oriented,  and  arbitrary  block  configurations 
can  be  treated. 


PREFACE 


Volurae  t:i  of  a  four-volume  set  documents  the  usage  of  Program  EAGLE 
(hglin  Arbitrary  Geometry  ImpLicit  Euler)  to  generate  a  discrete  set  of  points 
or  cells  covering  the  physical  field.  The  Grid  program  creates  the  physical 
field  required  for  the  finite  difference  (finite  volume)  or  finite  element 
solution  in  the  comuutationa  1  domain.  The  Grid  program  can  serve  as  input  to 
t.nc  riAOLK  Flow-Solver  (Volume*  IV)  or  some  other  numerical  analysis  program 
using  the  finite  element  or  finite  difference  technique. 

This  report  was  prepared  by  Drs  Joe  F.  Thompson  and  Boyd  Gatlin  of 
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don  S.  Mounts  of  the  Computational  Fluid  Dynamics  Section  (AFATL/FXA)  has 
i nore.isod  th"  utility  of  the  flow  code  through  user-oriented  inputs  and 
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INTRODUCTION 


Finite  difference  (or  finite  volume)  and  finite  element  solutions 
both  require  a  discrete  set  of  points  or  cells  covering  the  physical 
field,  and  the  efficiency  of  the  computation  is  greatly  enhanced  if 
there  is  some  organization  to  this  set.  This  organization  can  be  pro¬ 
vided  by  having  the  discretization  defined  by  the  nodes  of  a  curvilinear 
coordinate  system  filling  the  physical  field.  Such  systems  are  readily 
available  from  handbooks  for  certain  simple  configurations  such  as 
regions  that  are  cylindrical,  spherical,  elliptical,  etc.  For  general 
regions  of  arbitrary  shape,  numerical  grid  generation  provides  the 
curvilinear  system. 

The  techniques  of  numerical  grid  generation,  and  its  application  to 
the  numerical  solution  of  partial  differential  equations,  are  covered  in 
detail  in  a  recent  text  on  the  subject^.  Several  surveys  of  the 
field  have  also  been  given^"^,  and  four  conference  proceedings 
dedicated  to  the  area  have  appeared^”^.  The  first  of  these  proceed¬ 
ings  also  contains  a  number  of  exjxjsitory  papers  and  other  sources  on 
the  subject. 

The  curvilinear  system  can  be  constructed  simply  by  setting  values  in 
a  rectangular  array  of  position  vectors: 

r.j^  (i>1, j-1,2,"J,  k-1,2,— K) 

and  identifying  the  indices  l,J,k  with  the  three  curvilinear  coordi¬ 
nates.  The  position  vector  c  is  a  three-vector  giving  the  values  of  the 
x,y,  and  z  Cartesian  coordinates  of  a  grid  point.  Since  all  increments 
in  the  curvilinear  coordinates  cancel  out  of  the  transformation  rela- 
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tions  for  derivative  operators,  there  is  no  loss  of  generality  in 
defining  the  discretization  to  be  on  integer  values  of  these  coordi¬ 
nates. 

Fundamental  to  this  curvilinear  coordinate  system  is  the  coincidence 
of  some  coordinate  surface  with  each  segment  of  the  boundary  of  the 
physical  region,  in  the  same  manner  that  surfaces  of  constant  radius 
coincide  with  the  inner  and  outer  boundary  segments  of  the  region  be¬ 
tween  two  concentric  spheres  filled  with  a  polar  coordinate  system.  This 
is  accomplished  by  placing  a  two-dimensional  array  of  points  on  a 
physical  boundary  segment  and  setting  these  values  in  the  array  of 
position  vectors  with  one  index  constant,  e.g.,  in  with  i  from  1  to 

I  and  j  from  1  to  J.  The  curvilinear  coordinate  k  is  thus  constant  on 
this  physical  boundary  segment.  With  values  set  on  the  sides  of  the 
rectangular  array  of  position  vectors  in  this  manner,  the  generation  of 
the  grid  is  accomplished  by  determining  the  values  of  inte¬ 

rior  of  the  rectangular  array  from  the  specified  boundary  values  on  its 
sides,  e.g.,  by  interpolation  or  a  partial  differential  equation  solu¬ 
tion.  The  set  of  values  then  forms  the  nodes  of  a  curvilinear 

coordinate  system  filling  the  physical  region.  A  physical  region  bounded 
by  six  generally  curved  sides  can  thus  be  considered  to  have  been  trans¬ 
formed  to  a  rectangular  computational  region  on  which  the  curvilinear 
coordinates  (i.e.,  the  indices  l,J,k)  are  the  independent  variables. 

Although  in  principle  it  is  possible  to  establish  a  correspondence 
between  any  physical  region  and  a  single  empty  rectangular  block  for 
general  three-dimensional  configurations,  the  resulting  grid  is  likely 
to  be  much  too  skewed  and  irregular  to  be  usable  when  the  boundary 
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geometry  is  complicated.  A  better  approach  with  complicated  physical 
boundaries  is  to  segment  the  physical  region  into  contiguous  subregions, 
each  bounded  by  six  curved  sides  (four  in  2D)  and  each  of  which  trans¬ 
forms  to  a  rectangular  block  In  the  computational  region,  with  a  grid 
generated  within  each  sub-region^®"^ ' .  Each  sub-region  has  its  own 
curvilinear  coordinate  system  irrespective  of  that  in  the  adjacent 
sub-regions . 

This  then  allows  both  the  grid  generation  and  numerical  solutions  on 
the  grid  to  be  constructed  to  operate  in  a  rectangular  computational 
region,  regardless  of  the  shape  or  complexity  of  the  full  physical 
region.  The  full  region  is  treated  by  performing  the  solution  operation 
in  all  of  the  rectangular  computational  blocks.  With  the  composite 
framework,  partial  differential  equation  solution  procedures  written  to 
operate  on  rectangular  regions  can  be  incorporated  into  a  code  for 
general  configurations  in  a  straightforward  manner,  since  the  code  only 
needs  to  treat  a  rectangular  block.  The  entire  physical  field  then  can 
be  treated  in  a  loop  over  all  the  blocks. 

The  generally  curved  surfaces  bounding  the  sub-regions  in  the  physi¬ 
cal  region  form  internal  interfaces  across  which  information  must  be 
transferred,  i.e.,  from  the  sides  of  one  rectangular  computational  block 
to  those  of  another.  These  interfaces  occur  in  pairs,  an  interface  on 
one  block  being  paired  with  another  on  the  same,  or  another,  block, 
since  both  correspond  to  the  same  physical  surface.  Grid  lines  at  the 
interfaces  may  meet  with  complete  continuity,  with  or  without  slope 
continuity,  or  may  not  even  meet. 
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Complete  continuity  of  grid  lines  across  the  interface  r^rquires  that 
the  Interface  be  treated  as  a  branch  cut  on  which  the  generation  system 
is  solved  Just  as  it  is  in  the  interior  of  blocks.  The  interface  loca¬ 
tions  are  then  not  fixed,  but  are  determined  by  the  grid  generation 
system.  This  is  most  easily  handled  in  coding  by  providing  an  extra 
layer  of  points  surrounding  each  block.  Here  the  grid  points  on  an 
interface  of  one  block  are  coincident  in  physical  space  with  those  on 
another  Interface  of  the  same  or  another  block,  and  also  the  grid  points 
on  the  surrounding  layer  outside  the  first  interface  are  coincident  with 
those  just  inside  the  first  interface,  and  vice  versa.  This  coincidence 
can  be  maintained  during  the  course  of  an  iterative  solution  of  an 
elliptic  generation  system  by  setting  the  values  on  the  surrounding 
layers  equal  to  those  at  the  corresponding  interior  points  after  each 
iteration.  All  the  blocks  are  thus  iterated  to  convergence  together,  so 
that  the  entire  composite  grid  is  generated  at  once. 

The  construction  of  flow  codes  for  complicated  regions  is  greatly 
simplified  by  the  composite  grid  structure  since,  with  the  use  of  the 
surrounding  layer  of  points  on  each  block,  a  flow  code  is  only  required 
basically  to  operate  on  a  rectangular  computational  region.  The  neces¬ 
sary  correspondence  of  points  on  the  surrounding  layers  (image  points) 
with  interior  points  (object  points)  is  set  up  by  the  grid  code  and  made 
available  to  the  computational  fluid  dynamics  solution  code. 

The  present  grid  code  is  a  general  three-dimensional  elliptic  grid 
generation  system  based  on  the  block  structure.  This  system  allows  any 
number  of  blocks  to  be  used  to  cover  an  arbitrary  three-dimensional 
region.  Any  block  can  be  linked  to  any  other  block  (or  to  itself),  with 


complete  (or  lesser)  continuity  across  the  b’-'ck  interfaces  as  specified 
by  input.  This  code  uses  an  elliptic  generation  system  with  automatic 
evaluation  of  control  functions  from  the  boundary  point  distributions. 
This  evaluation  differs  from  earlier  related  procedures'^  in  that  the 
arc  length  and  curvature  contributions  to  the  control  functions  are 
evaluated  and  Interpolated  separately  into  the  field  from  the  appropri¬ 
ate  boundaries.  The  control  function  at  each  point  in  the  field  is  then 
formed  by  combining  the  interpolated  components.  This  procedure  allows 
very  general  regions,  with  widely  varying  boundary  curvature,  to  be 
treated. 

The  control  functions  can  be  also  determined  automatically  to  pro¬ 
vide  orthogonality  at  boundaries  with  specified  normal  spacing  (related 
1  2 

to  the  GRAPE  code  ).  In  the  present  code,  the  iterative  adjustments  in 
the  control  functions  are  made  by  Increments  radiated  from  boundeiry 
points  whore  orthogonality  has  not  yet  been  attained.  This  allows  the 
basic  control  function  structure  evaluated  from  the  boundary  point 
distributions  to  be  retained  and  thus  relieves  the  iterative  process 
from  the  need  to  establish  this  basic  form  of  the  control  functions. 

Alternatively,  boundary  orthogonality  can  be  achieved  through 
Neumann  boundary  conditions  which  allow  the  boundary  points  to  move  over 
a  surface  spline,  the  boundary  point  locations  being  located  by  Newton 
Iteration  on  the  spline  to  be  at  the  foot  of  normals  to  the  adjacent 
field  points.  Provision  is  also  made  for  mirror-image  reflective  bound¬ 
ary  conditions,  i.e.,  symmetry  planes. 
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The  elliptic  generation  system  is  solved  by  point  SOR  iteration 
using  a  field  of  locally-optimum  acceleration  parameters  These  opti¬ 
mum  parameters  make  the  solution  robust  and  capable  of  convergence  with 
strong  control  functions.  The  code  includes  an  algebraic  three-dimen¬ 
sional  generation  system  based  on  transfinite  interpolation*’^" (using 
either  Lagrange  or  Hermlte  Interpolation)  for  the  generation  of  an 
initial  solution  to  start  the  iterative  solution  of  the  elliptic  genera¬ 
tion  system.  This  feature  also  allows  the  code  to  be  run  as  an  algebraic 
generation  system  if  desired.  The  interpolation,  though  defaulted  to 
complete  transfinite  interpolation  from  all  boundaries,  can  be  re¬ 
stricted  by  input  to  any  combination  of  directions  or  lesser  degrees  of 
interpolation,  and  the  form  (Lagrange,  Hermite,  or  incomplete  Hermite) 
can  be  different  in  different  directions. 

The  composite  structure  is  such  that  completely  general  configura¬ 
tions  may  be  treated,  the  arrangement  of  the  sub-regions  being  specified 
by  input,  without  modification  of  the  code.  The  input  is  user-oriented 
and  designed  for  brevity  and  easy  recognition.  For  example,  the  estab¬ 
lishment  of  correspondence,  i.e.,  a  branch  cut,  between  two  blocks 
requires  only  the  simple  input  statement 

$INPUT  ITEM  -  "CUT",  START  -  _ ,  END  = 

BLOCK  »  _  ISTART  »  _ ,_, _ ,  lEND  »  _ ,_, _ ,  IBLOCK  =  _  $ 

where  START  and  E  the  three  indices  of  two  opposite  corners  of  the  cut 
section  on  one  block  (BLOCK),  while  ISTART  and  lEND  give  the  corners  of 
the  corresponding  section  on  the  other  block  (IBLDCK).  The  code  sets  up 
the  point  correspondence  on  the  surrounding  layers  for  complete  continu¬ 
ity  without  additional  input  instructions. 
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T'ae  cole  is  written  in  modular  form  so  that  components  can  be  read¬ 
ily  replaced,  and  an  adaptive  version  of  the  elliptic  generation  subrou¬ 
tine  has  also  been  written.  The  code  is  vectorized  (CRAY  X-MP)  wherever 
practical  and  includes  provision  for  separate  storage  of  each  block  on 
the  solid-state  disk  (or  conventional  disk)  to  allow  very  large  grids  to 
be  generated. 

In  addition,  an  auxiliary  front-end  code  (surface  generation  system) 
has  also  been  written  to  set  up  boundary  data  for  input  to  the  grid 
generation  system.  This  auxiliary  code,  which  is  discussed  in  detail  in 
Vol.  II,  builds  boundary  segments  in  response  to  a  aeries  of  input 
commands  which  again  are  designed  to  be  user-oriented,  brief,  and  easily 
recognized.  The  following  features  are  included: 

(1)  generaton  of  generic  plane  conic-section  or  cubic  curves. 

(2)  generation  of  cubic  space  curves. 

(3)  generation  of  generic  conic-section  surfaces. 

(>l)  generation  of  cubic  surfaces. 

(5)  generation  of  surfaces  by  stacking,  rotating,  or  blending 
curves. 

(6)  extraction  and  concatenation  of  surface  segments. 

(7)  transformation  of  surfaces  by  translation,  rotation,  and  scaling. 

(8)  reversal  or  switching  of  point  progressions  on  surface. 

(9)  establishment  of  point  distributions  by  curvature  and  with 
specified  end,  or  interior,  spaclngs. 

(10)  establishment  of  surface  parametric  grids  by  transflnite  inter¬ 
polation  . 

(11)  generation  of  tensor-product  3urfaces(Coon’s  Patches). 

(12)  generation  of  surfaces  by  transflnite  interpolation. 
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(13)  generation  of  grids  on  curved  surfaces. 

(14)  surface  intersections. 

The  use  of  the  grid  generation  system,  including  input  instructions , 
is  discussed  in  Part  I  of  this  present  volume,  and  the  code  operation 
and  background  theory  are  discussed  in  Part  II  and  the  Appendices. 


8 


NEW  FEATURES 


The  1988  version  of  the  EAGLE  grid  code  contains  a  number  of  new 
features  and  improvements  of  certain  features  of  the  original  code.  The 
major  thrust  of  these  new  features  is  to  simplify  the  construction  of 
complicated  boundary  configurations.  Reference  may  be  made  to  a  new 
section  entitled  Easy  EAGLE  (Section  4  of  Volume  I)  in  which  the  general 
use  of  the  code  is  discussed.  This  new  section  is  intended  to  provide 
the  user  with  essential  information  on  the  most  commonly  used  features 
of  the  code.  This  section  should  hopefully  allow  the  new  user  to  quick¬ 
ly  get  into  operation. 

The  construction  of  the  block  structure  for  complicated  regions  has 
been  greatly  simplified  by  making  provision  for  the  addressing  of  points 
by  point  numbers  instead  of  by  the  three  coordinate  indices  (Section 
I-C23).  Boundary  segments  can  also  be  addressed  by  numbers.  These 
point  and  segment  numbers  can  be  carried  from  the  front-end  boundary 
code  into  the  grid  code,  and  this  allows  the  number  of  points  on  the 
various  b'undary  segments  to  be  changed  in  the  input  to  the  boundary 
code  without  requiring  changes  in  the  input  to  the  grid  code.  This  fea¬ 
ture  also  makes  it  much  easier  to  construct  the  block  structure  from 
sketches  of  the  configuration. 

This  current  version  of  the  code  can  also  generate  a  2D  grid  on  a 
curved  surface,  including  all  the  features  of  the  composite-block  struc¬ 
ture,  boundary  orthogonality,  etc.  (Section  I-C24). 

Several  bugs  in  the  original  version  have  also  been  fixed,  of 
course. 

The  following  significant  changes  to  specific  operations  should  be 
noted  (Details  are  given  in  the  sections  indicated): 
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Section  I-A3 


The  Neumann  boundary  conditions  may  either  be  orthogonality 


or  zero  curvature. 


Section  I-B5 

With  the  numbered-points  mode  (Section  I-C23).  single  entries  for 
START  and  END,  and  also  for  1ST ART  and  I  END,  will  be  taken  as  point  num¬ 
bers  on  all  input  statements  Involving  these  quantities. 

Section  I-C1 

Three  additional  options  for  MATH  are  now  included. 

Section  I-C2 

When  the  numbered-points  feature  (Section  I-C23)  is  used,  the  block 
size  can  be  set  from  a  numbered  point. 


Section  I-C 3 


The  default  for  TRIAD  has  been  changed  to  "YES". 

Since  the  entries  of  ORDER  set  the  order  of  a  nest  of  loops  that 
read  the  points  from  the  file  (with  the  first  entry  indicating  the  in¬ 
nermost  loop),  it  is  only  necessary  to  include  ORDER  when  the  two  direc¬ 
tions  on  the  segment  of  the  block  are  not  1,2,  or  2,3,  or  1,3,  or  if  the 
faster  direction  is  higher  than  the  slower  direction,  e.g.  2,1.  In  any 
case,  giving  the  faster  running  direction  as  a  single  entry  for  ORDER 
will  suffice. 

In  the  numbered  point-numbered  segment  mode  (Section  I-C23)  an  en¬ 
tire  file  of  boundary  segments  is  read  in  at  once  by  including  ALL-" YES" 
on  an  ITEM-" FILE"  statement  instead  of  BLOCK, START, END , ORDER ,  and 
RORDER. 

Section  I-C^ 

Points  can  be  "unfixed"  by  an  input  statement  with  ITEM-"UNFIX" . 

Section  I-C6 

If  insufficient  boundary  values  are  given  for  section  interpola¬ 
tion,  sub-blocks  or  for  the  Interpolation  for  the  algebraic  grid,  the 
code  will  attempt  to  supply  the  missing  values  by  transfinite  interpola¬ 
tion  of  lesser  dimensionality. 

Section  I-C7 

Fixed  edges  can  now  be  included  in  the  definition  of  cut  sections. 
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Sections  I-C8,  C9,  CIO 


The  section  definition  for  these  features  can  include  the  fixed 
edges. 

Section  I-C9,  CIO 

The  off-boundary  spacing  can  be  set  on  the  entire  section  by  in¬ 
cluding  SPAVAL,  or  on  portions  by  the  operation  ITEM=" SPACE" ,  as  in  Sec¬ 
tion  I-C9. 

Section  I-C10 

The  orthogonality  section  does  not  have  to  be  on  a  block  side.  The 
extent  of  the  orthogonality  into  the  field  can  also  be  controlled. 

Section  I-cm 

It  is  only  necessary  to  omit  ITMAX  in  order  to  cause  the  code  to 
take  the  algebraic  grid  as  the  final  result. 

Section  I-C15 

The  smoothing  of  control  functions  with  CONTYP=" INITIAL"  is  auto¬ 
matic.  CONTYP-"NONE"  gives  a  grid  from  Laplace  equations,  i.e.,  the 
smoothest  possible  grid. 
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Section  I-CI6 


[f  no  points  are  set  on  a  sub-block  boundary,  values  will  automat¬ 
ically  be  interpolated  on  that  boundary  if  possible  as  described  in  Sec¬ 
tion  I-C6. 

Section  I-C20 

The  "VARIABLE"  form  for  the  first  derivatives  now  gives  central 
differences  with  control  functions  that  do  not  exceed  2.0  in  magnitude, 
with  a  weighted  average  between  central  and  one-sided  otherwise.  The 
average  changes  inversely  with  the  control  function  to  fully  one-sided 
for  very  large  values.  The  default  is  "VARIABLE". 

Section  1-C23 

It  is  possible  to  reference  a  point  by  a  single  number  instead  of 
giving  the  three  indices  of  the  point.  This  feature,  and  the 

companion  feature  in  the  front-end  boundary  code,  allows  the  number  of 
points  on  a  segment  to  be  changed  where  the  segment  is  generated  in  the 
front-end  without  requiring  changes  in  the  input  to  the  grid  code. 

Section  1-024 

The  code  can  generate  a  2D  grid  on  a  curved  surface. 

Section  I-S25 

It  is  possible  In  rare  instances  for  cuts  to  be  set  up  in  such  a 
way  that  a  point  on  a  block  Interface  is  imaged  to  a  field  point  in  one 
block,  while  an  adjacent  point  on  the  interface  is  imaged  to  a  non-field 
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point  in  another  block.  Such  a  situation  can  produce  a  local  loss  of 
derivative  continuity  and  can  often  be  avoided  by  reversing  the  designa¬ 
tion  of  the  object  and  image  blocks  at  the  interface.  This  situation 
can  be  checked  for  by  including  CONTIN-"YES’'  on  some  input  statement. 

Section  I-C9 

Neumann  boundary  conditions  based  on  zero  curvature  of  lines  inter¬ 
secting  the  boundary  Instead  of  orthogonality  can  also  be  applied. 

Section  I-D1,  D2 

As  in  the  NAMELIST/ INPUT/ ,  numbered  points  can  be  used  as  single 
entries  In  START  and  END  (cf.  Section  I-C23). 
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PART  I  -  USER'S  MANUAL 


A.  INTRODUCTION 

All  of  the  input  for  the  code  is  discussed  in  Part  I.  However,  it 
may  be  necessary  to  adjust  certain  array  dimensions  for  larger  applica¬ 
tions.  The  code  checks  these  dimensions  and  gives  error  messages  and 
Instructions  for  the  necessaray  adjustments.  A  list  of  all  such  adjust¬ 
able  dimensions  is  given  in  Section  II- A2  of  Part  II.  Note  that  any 
such  changes  must  be  done  in  global  edits. 

1 .  Composite  Grid  Structure 

The  grid  is  structured  as  follows;  The  entire  three-dimensional 
physical  region  is  filled  with  a  set  of  interfacing  hexahedrons,  each 
of  which  corresponds  to  a  rectangular  computational  block. 
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Each  of  these  computational  blocks  has  its  own  set  of  right-handed 
curvilinear  coordinates,  C^(i»1,2,3),  Independent  of  those  in  the  other 
blocks: 


Each  block  is  identified  by  a  number  (starting  with  1),  and  the  size 
(the  number  of  grid  points  in  each  curvilinear  direction)  of  a  block  is 
set  in  the  integer  array 

CMAX(i,  block  number)  i  -  1,2,3 

The  curvilinear  coordinates  of  the  grid  pints  in  the  block  thus  assume 
the  integer  values 

-  1,2,...,  CMAX(i,  block  number)  i  =  1,2,3 

at  the  grid  points  in  this  computational  block.  The  blocks  do  not  have 
to  be  all  of  the  same  size,  and  the  size  of  each  is  specified  by  input. 
It  is  only  necessary  that  all  of  the  corresponding  hexahedrons  fit 
together  to  fill  the  physical  region. 
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Each  computational  block  is  surrounded  by  an  extra  layer  of  points 
in  order  to  allow  connections  across  the  interfaces  in  the  physical 
region  to  be  formed.  All  arrays  that  contain  values  for  each  grid  point 
in  a  block  are  therefore  dimensioned  from  0  to  one  greater  than  the 
maximum  number  of  points  allowed  in  the  block.  Thus  the  surrounding 
layer  of  points  outside  the  block  corresponds  to  »  0  on  one  side  of 
the  block  and  to  »=  CMAX(i,  block  number )+1  on  the  other: 

CMAXd  ,B)  +  1  ,  CMAX(2,B)  +  1 

■-T 

CMAXd  ,B),  CMAX(2,B) 


_ 1 

0,0 
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(Actually,  provision  Is  made  for  still  another  surrounding  layer  of 
points,  corresponding  to  *  “1  and  -  CMAX+2,  in  order  to  provide 
connections  for  use  in  partial  differential  equation  codes  using  two- 
point  one-sided  differences.  Since  this  second  surrounding  layer  is  not 
Involved  in  the  grid  generation,  no  further  account  will  be  taken  of  its 
presence  in  the  present  discussion.) 

2.  Block  Interfaces 

The  grid  can  be  generated  such  that  the  grid  lines  cross  the  inter¬ 
face  from  one  hexahedron  to  the  next  with  complete  continuity. 


with  slope  continuity. 


with  only  line  continuity 
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or  diacont inuously. 


With  any  degree  of  continuity,  l.e.,  in  all  but  the  last  case,  adjacent 
blocks  must,  of  course,  have  the  same  number  of  points  on  their  common 
interface. 

In  the  case  of  complete  continuity,  the  interface  is  a  branch  cut, 
and  the  code  establishes  a  correspondence  across  the  interface  using  the 
surrounding  layer  of  points  outside  the  blocks.  This  allows  points  on 
the  Interface  to  be  treated  just  as  all  other  points,  so  that  there  is 
no  loss  of  continuity.  The  physical  location  of  the  interface  is  thus 
totally  unspecified  in  this  case. 
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The  case  of  slope  continuity  Is  accomplished  simply  by  requiring  the 
grid  lines  to  Intersect  the  Interface  orthogonally  on  both  sides.  This 
can  be  done  either  through  Neumann  boundary  conditions,  In  which  case 
locations  of  the  points  on  the  interface  are  determined  by  the  code 
(with  the  shape  of  the  interface  specified  by  input),  or  by  iterative 
adjustment  of  the  control  functions  with  the  points  on  the  interface 
specified  by  Input. 

Line  continuity  requires  only  that  the  same  physical  points  be 
specified  on  the  interface  on  each  of  the  two  blocks  it  joins,  so  that 
the  points  on  the  interface  are  completely  specified  by  input.  No 
continuity  at  the  interface  requires  nothing  at  all,  of  course,  and  the 
adjacent  blocks  do  not  even  have  to  have  the  same  number  of  points  on 
the  interface  in  that  case. 

3.  Fundamental  Arrays 

In  the  following  discussion  the  field  arrays  (which  contain  values 
at  each  grid  point  in  a  block),  such  as  R  given  below,  include  the  block 
number  as  a  subscript.  The  code  actually  operates  with  data  from  only 
one  block  at  a  time  in  these  arrays  and  hence  this  subscript  is  always 
unity  in  the  code.  The  present  explanation  of  usage  is  greatly  simpli¬ 
fied  by  the  inclusion  of  the  block  number  as  a  subscript,  however,  and 
understanding  of  the  actual  operation  is  not  necessary  for  usage.  In  any 
case  the  actual  operation  is  discussed  in  Part  II. 

The  three  Cartesian  coordinates  Xj^  (i  -  1,2,3)  of  the  grid  points  in 
a  block  are  in  the  real  arrablock  are  in  the  real  array 
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1  2  3 

lU  i  ,  bli)i;k  number,  ,  f,,  ^  ) 


i  =  1,2,3 


where  are  the  three  curvilinear  coordinates  of  the  grid 

point  in  the  computational  block.  The  index  i  is  usually  referred  to  in 
the  code  as  the  integer  Cl  when  it  Identifies  a  curvilinear  coordinate, 
e.g.  5^,  and  as  the  integer  RI  when  a  Cartesian  component  is  identi¬ 
fied,  e.g.  x^.  Similarly  the  Integers  C1,C2,C3  or  C(1  ),C(2),C(3)  are 

1  2  3 

used  for  the  arguments  C  ,C  •  The  block  number  is  usually  given  as 
the  integer  B  (or  NBLK  in  the  subroutines). 

Kach  grid  point  in  a  block  is  given  a  classification  set  in  the 
integer  array 

TYPE(block  number,  5^  5^,  5^) 

This  array,  which  is  set  up  by  the  code  from  the  input,  contains  at  each 
grid  point  one  of  the  following  alphanumeric  values  (the  default  is 
"FIELD"  except  on  the  surrounding  layer  where  the  default  is  "OUT") 


TYPE  =  "FIX":  indicates  a  point  for  which  the  Cartesian  coordinates  are 
not  to  be  changed,  e.g.,  a  fixed  point  on  a  physical 
boundary. 

TYPE  =  "FIELD":  indicates  a  grid  point  for  which  the  Cartesian  coordi¬ 
nates  are  to  be  calculated  by  the  grid  generation 
system,  e.g.,  a  general  field  point. 

TYPE  =  "IMAGE":  indicates  an  image  point,  i.e.,  a  point  on  a  block 
boundary  or  surrounding  layer  of  points,  for  which  the 
Cartesian  coordinates  will  be  kept  equal  to  those  at 
another  (object)  point  in  the  same  or  another  block. 

TYPE  =  "REFLECT":  indicates  a  point  on  the  surrounding  layer  which  is 
the  mirror-image  reflection  in  a  plane  physical 
boundary  of  a  grid  point  just  Inside  the  boundary. 

TYPE  =  "AVERAGE":  indicates  a  special  grid  point  on  a  block  boundary 

which  is  the  average  of  all  the  adacent  grid  points. 
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TYPE 


NEUMANN" : 


Indicates  a  grid  point  on  a  boundary  at  which  the 
Neumann  boundary  conditions  are  to  be  applied.  These 
boundary  conditions  may  be  either  orthogonality  or 
zero  curvature.  (Such  a  point  moves  along  the  bound¬ 
ary.  ) 

TYPE  »  "ORTHOG";  indicates  a  grid  point  on  a  boundary  at  which  grid 
lines  are  to  be  made  orthogonal  to  the  boundary  by 
iterative  adjustment  of  the  control  functions.  (This 
leaves  the  boundary  point  fixed.) 

TYPE  =  "OUT":  indicates  a  point  completely  out  of  the  computation, 
e.g.,  inside  a  body  in  the  interior  of  a  block. 


The  correspondence  across  the  interfaces  between  the  hexahedrons  in 
the  physical  region  is  established  in  the  integer  array 

IMAGE( _ ,  block  number, 


where  the  first  subscript  assumes  the  values  0,1, 2, 3  as  explained  below. 
The  Cartesian  coordinates  of  points  having  TYPE  «  "IMAGE"  (an  image 
point)  are  kept  equal  to  those  of  some  other  (object)  point  in  the  same 
or  another  block.  The  block  number  and  curvilinear  coordinates  (5^)  of 
this  object  point  are  in  the  array  IMAGE,  where 

image  point 


object 

point 


block  number 

=  IMAGE (0, 

block 

number , 

-  IMAGE (1 , 

block 

number. 

-  IMAGE (2, 

block 

number , 

53 

=»  IMAGE  (3, 

block 

number, 

Here  the  last  four  arguments  of  the  array  identify  the  image  point, 
while  the  four  values  of  the  array  Identify  the  corresponding  object 
point.  This  array  is  also  set  up  by  the  code  at  input.  As  an  example 
of  the  use  of  the  IMAGE  array,  if  TYPE(IB,IC1 ,IC2,IC3)=  "IMAGE"  then  the 
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point  with  fJ-ICI,  ^^=IC2,  ^^=IC3  in  block  IB  is  an  image  point.  The 
Gorresponhing  object  point,  say  ?^=C3  in  block  B,  is 

obtained  I'r’om  the  IMAGE  array  as 

B  =  IMAGE(0,IB,IC1 ,IC2,IC3) 

Cl  >  IMAGEd  ,IB,IC1  ,IC2,IC3) 

C2  =  IMAGE(2,IB,IC1 ,IC2,IC3) 

C3  =  IMAGE(3,IB,IC1 ,IC2,IC3) 

Then  the  Cartesian  coordinates  at  the  image  point  are  set  equal  to  those 
at  the  object  point  by 

R(1 ,IB,IC1 ,IC2,IC3)  =  R(1 ,B,C1 ,C2,C3) 

R(2,IB,IC1 ,IC2,IC3)  >  R(2,B,C1 ,C2,C3) 

R(3.IB,IC1 ,IC2,IC3)  -  R(3,B,C1 ,C2,C3) 

(The  notation  1C1,IC2,IC3,  or  IC( 1 ) , IC (2 ) , IC (3 ) ,  for  the  curvilinear 
coordinates  of  an  image  point  is  common  in  the  code,  as  is  IB 

for  the  image  for  the  block  number.) 

.  Scratch  Files 

The  code  uses  files  7-10  as  scratch  files. 

5.  Adjustable  Dimension  Parameters 

There  are  several  dimension  parameters  that  are  set  by  identical 
PARAMETER  statements  in  the  main  program  and  in  the  subroutines.  These 
parameters  can  be  changed  by  global  edits. 
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A  resource  summary  is  printed  in  order  to  allow  the  user  to  adjust 
the  dimension  parameters  to  reduce  the  storage  required  as  much  as 
possible.  This  summary  shows  the  storage  allotted  and  that  actually 
used,  as  related  to  each  of  the  adjustable  parameters.  Some  of  the 
resources  given  are  affected  by  more  than  one  of  the  parameters.  A 
complete  list  of  these  adjustable  parameters  is  given  in  Section  11-A2. 


B.  SET-UP  PROCEDURE 


1 .  Block  Structure 

Setting  up  the  code  to  generate  a  grid  consists  of  first  determining 
the  basic  structure  for  the  hexahedrons  (blocks)  that  are  to  fill  the 
physical  region.  This  amounts  basically  to  deciding  where  the  eight 
corners  (four  in  2D)  of  each  hexahedron  will  be  located  in  the  physical 
region. 

Thus  a  circular  region  in  2D  could  be  filled  with  one  block  having 
all  four  corners  on  the  circle; 


rm*  1 _ _ 

6 

L 

LJ 

1 

4 

or  with  one  having  two  corners  coincident  on  the  circle,  and  the  other 
two  coincident  on  an  Interior  point: 
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Similarly,  a  2D  annular  region  could  be  filled  with  a  single  block: 


or  perhaps  with  eight  blocks: 


Other  possibilities  also  exist,  of  course.  (The  above  figure  could  be  a 
nine-block  filling  of  the  empty  circular  region  mentioned  first.)  More 
complicated  and  three-dimensional  cases  are  illustrated  in  the  examples 
given  in  Vol.  I. 
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Boundary  Points 


Aftp;  block  corners  have  been  located,  the  next  step  is  to  decide  on 
the  number  of  grid  points  that  are  to  occur  in  each  direction  on  each 
side  of  the  '’ock.  This  information  on  the  size  of  each  block  is  input 
to  the  code  as  described  in  Sect.  I-C2.  Here  certain  considerations 
must  be  mot  regarding  adjacent  blocks  if  the  grid  lines  are  to  be  con¬ 
tinuous  across  the  interfaces  between  blocks.  Thus  with  a  configuration 
of  the  form 


Block  2  must  have  the  same  number  of  points  from  ^4  to  3  as  Block  1  has 
from  1  to  if  the  grid  lines  are  to  be  continuous  across  the  interface. 
(If  line  continuity  is  not  desired,  no  such  restrictions  apply.) 

The  npxt  step  is  to  place  the  desired  number  of  points  on  each  side 
of  the  blcck  that  corresponds  to  a  segment  of  a  physical  boundary.  This 
involves  specifying  the  Cartesian  coordinates  of  each  such  point.  These 
points  can  be  r^ad  into  the  code  either  from  a  file  or  directly  from  the 
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input  (Sect.  I-C3).  The  placement  of  these  boundary  points  can  be  done 
using  the  front-end  code  (Vol.  II),  which  generates  boundary  surfaces 
and  prepares  files  in  the  proper  format  for  input  to  the  grid  code.  In 
any  case  the  required  file  format  is  discussed  in  Sect.  I-C3.  (The 
grid  code  can  be  run  in  the  2D  surface  mode  to  generate  points  on  a 
generally  curved  boundary  surface  for  later  input  for  a  3D  region.  Such 
2D  results  can  also  be  passed  back  through  the  front-end  code  for 
transformation,  e.g.  translation,  rotation,  and  scaling,  before  being 
input  as  a  boundary  segment  to  the  3D  code.) 

3.  Interfaces 

The  grid  lines  across  the  interfaces  between  blocks  can  be  com¬ 
pletely  continuous,  can  have  continuous  slope,  can  be  simply  continuous 
but  with  a  break  in  slope,  or  can  be  discontinuous  (Sect.  I-A2).  This 
provision  is  made  on  the  input  as  described  in  Sect.  I-C7  for  each 
interface.  Although  these  interfaces  are  not  physical  boundaries,  and  in 
fact  may  be  completely  determined  by  the  code,  it  is  necessary  to  estab¬ 
lish  an  initial  point  distribution  on  all  six  sides  of  each  block  (four 
In  2D)  when  elliptic  generation  is  used  in  order  for  the  code  to  deter¬ 
mine  the  control  functions.  This  initial  point  distribution  on  the 
interfaces  can  be  read  in  as  are  points  on  physical  boundary  segments, 
(Sect.  I-C3)  or  can  be  interpolated  (Sect.  I-C6)  by  the  code  from  values 
read  in  on  the  edges  of  the  interfaces.  Even  the  values  on  the  edges  can 
be  interpolated  if  desired,  leaving  only  the  corner  values  to  be  read 
in.  In  most  cases,  however,  it  will  be  preferable,  in  the  interest  of 
good  control  of  the  grid,  not  to  rely  on  interpolation  for  edge  values. 
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4.  Grid 


Tht;  Clide  can  function  as  an  algebraic  generation  system  based  on 
various  forms  of  transfinite  interpolation  using  either  Lagrange  or 
Hermite  interpolation,  the  latter  providing  boundary  orthogonality  and 
specified  off-boundary  spacing,  or  can  be  run  as  an  elliptic  generation 
system  with  control  functions  determined  automatically  from  the  boundary 
point  distribution  or  iteratively  to  establish  boundary  orthogonality 
with  specified  spacing  off  the  boundary.  Neumann  or  reflective  boundary 
conditons  can  also  be  called  for.  Different  boundary  treatments  can  be 
used  on  different  segments  of  the  boundary. 

Finally,  various  forms  of  output  can  be  called  for,  e.g.  print  out 
and/or  storage  for  plotting  all  or  specified  sections  of  the  grid,  or 
file  storage  of  the  entire  grid  in  various  formats  for  input  to  a  PDE 
code. 

5 .  Input 

The  input  to  the  code  is  accomplished  by  successive  reads  of  a  NAME- 
LIST  called  INPUT,  followed  by  successive  reads  of  another  NAMELIST 
called  OUTPUT.  The  former  initializes  the  code  for  the  grid  generation, 
and  the  latter  specifies  the  type  of  output  to  be  provided.  All  fea¬ 
tures  of  the  input  are  discussed  in  detail  in  Sections  I-C  and  I-D . 

In  the  input  it  is  convenient  to  identify  rectangular  sections  in  a 
block  for  the  purpose  of  reading  in  Cartesian  coordinate  values  of 
boundary  points,  for  classifying  points  as  discussed  above,  and  for 
establishing  correspondences  across  interfaces.  This  is  accomplished 
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through  the  integer  arrays  START(3)  and  END (3),  which  contain  the  three 
curvilinear  coordinates  of  two  diagonally- opposite  corners  defining  the 
rectangular  section  of  the  block: 


END 


Thus  we  have  5^«START(i),  1-1, 2, 3  as  the  coordinates  of  one  corner  of 
the  section,  and  ^’•=END(i),  i»1,2,3  for  the  other.  (Surface  sections 
will  have  START(i)  -  END(i)  for  one  value  of  i,  while  line  sections  will 
have  this  equality  for  two  values  of  i.)  Any  entry  in  START  may  exceed 
the  corresponding  entry  in  END,  the  progression  being  from  START  to  END 
in  any  case. 

With  the  numbered- points  mode  (Section  I-C23),  single  entries  for 
START  and  END,  and  also  for  ISTART  and  lEND,  will  be  taken  as  point 
numbers  on  all  input  statements  Involving  these  quantities.  Negative 
values  for  entries  of  START, END, ISTART,  or  lEND  indicate  a  point  number 
(Section  I-C23)  if  one  with  that  number  has  been  set,  or  may  indicate  a 
stored  value  (Section  I-Cl). 
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C.  NAMELIST/ INPUT/ 


The  grid  generation  is  set  up  by  successive  reads  of  a  NAMELIST 
called  INPUT.  Each  of  these  reads  is  done  by  an  input  statement  of  the 
form 

$  INPUT  ITEM  =  —  -  $ 

with  the  quantity  ITEM  identifing  what  type  of  input  data  is  given  on 
each  particular  read  of  INPUT,  as  discussed  below.  The  relevant  input 
quantities  also  appear  on  this  statement,  separated  by  commas  or  blanks, 
in  the  form 

quantity  =  value 

Arrays  appear  as 

quantity  «  value,  value, -- 
and  repeated  values  can  be  Indicated  as 

quantity  =  N* value 

where  the  number,  N,  preceding  the  asterisk  Indicates  the  number  of 
repeats.  Single  array  entries  can  appear  simply  as  quantity  -  value,  if 
the  first  entry  is  intended,  or  as  quantity(i)  =  value  if  the  1-entry  is 
intended.  The  NAMELIST  variables  are  defaulted  again  after  each  input 
statement.  In  ail  cases  only  relevant  variables  to  be  changed  from 
default  values  need  appear  on  the  input  statement.  The  code  checks  for 
missing  or  unreasonable  values  of  required  quantities.  Also  when  only 
the  first  two  entries  in  a  3D  array  are  relevant  (e.g. ,  for  2D)  only  two 
values  need  be  given.  This  setup  portion  of  the  input  is  terminated  by 
an  input  statement  with  ITEM  »  "END". 
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In  the  following  discussion  of  input,  upper-case  letters  are  to 
appear  on  the  input  statements  exactly  as  given  here,  on  either  side  of 
the  equal  signs  and  in  or  out  of  quotes.  Lower-case  letters,  or  under¬ 
lined  blanks,  indicate  values  to  be  given  for  quantities,  and  are  to  be 
replaced  by  Integers  orreal  numbers  as  appropriate.  The  exponential 
notation  can  be  used  for  real  numbers  when  desired.  Real  numbers  that 
happen  to  be  integral  can  be  given  as  integers  if  desired. 

1 .  Calculation  and  Storage  of  Input  Parameters  for  Later  Use 

Values  of  SIZE,  START,  END,  ISTART  and  lEND  can  be  calculated  from 
sums  or  products  of  values  and  stored  for  use  on  later  input  statements. 
This  is  done  by  an  input  statement  with  ITEM  =  "SETVAL",  with  the  type 
of  calculation  specified  by  MATH: 


" SUM" : 

1  TERMS! i) 

1 

"SUM-1": 

TERMS (1 )  + 

1  [terms! i) 

i 

"DIF": 

TERMS! 1 )  - 

TERMS (2) 

"DIF+1": 

TERMS !1 )  - 

1  [terms! 1) 

i 

PRODUCT: 

n  TERMS! i) 

The  terms  in  the  calculation  are  input  in  the  integer  array  TERMS,  and 
the  storage  location  as  the  Integer  VALOUT. 

These  stored  values  are  invoked  on  any  later  input  statements  by 
giving  a  negative  value  for  the  intended  quantity,  the  magnitude  being 
the  storage  location.  For  example,  the  following  input  statement  stores 
the  sum  of  3.  and  8  in  storage  location  3  for  later  use: 
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$[NPUT  ITEM  =  "SETVAL",  TERMS  =  3,4,8,  MATH-"SUM",  VALOUT  -  3  $ 

Then  on  a  subsequent  input  statement,  the  usage 
SIZE  =  10,  -3,  8 

would  assign  the  values  10,  15,  8  to  SIZE. 

The  SUM-1  and  DIF+1  options  are  particularly  useful  in  setting  the 
number  of  points  on  a  segment  from  the  number  on .  component  segments. 
Thus,  in  the  example  below 

segment  4 


the  number  of  points  (10)  on  segment  #4  can  be  calculated  from  the  num¬ 
ber  of  points  on  segments  #1,  #2  and  #3  with  TERMS«4,3,5  and 
MATH="SUM- 1" .  Similarly,  the  number  of  points  (3)  on  segment  #2  can  be 
calculated  from  the  numbers  of  points  on  segments  #1  ,  #3  and  #4  with 
TERMS= 10,4,5  and  MATH="DIF+1" . 

Entries  in  TERMS  may  now  themselves  be  stored  values,  indicated  by 
a  negative  entry.  Note  that  this  means  that  it  is  not  possible  to  ex¬ 
plicitly  use  negative  values  in  the  calculation,  rather  "DIF"  must  be 
used  to  perform  subtraction. 

The  default  for  MATH  is  "SUM-1",  except  when  only  a  single  entry  of 

TERMS  is  given  in  which  case  the  default  is  simply  to  store  the  value. 

Thus  in  the  above  example,  the  number  of  points  on  each  segment 
could  first  be  stored  against  the  segment  number  by 

$INPUT  ITEM  =  "SETVAh",  TERMS  =  4,  VALOUT  -  1  $ 

$INPUT  ITEM  =  "SETVAL",  TERMS  -  3,  VALOUT  -  2  $ 


33 


$INPUT  ITEM  =  "SETVAL”,  TERMS  -  5,  VALOUT  =  3  $ 

Then  the  number  on  segment  #4  can  be  set  from  these  other  segments  by 

$INPUT  ITEM  =  "SETVAL",  TERMS  =  -1 ,-2,-3,  VALOUT  =  4  $ 

Alternatively,  with  the  number  of  points  set  on  segments  #4,  #1  and  #3, 
the  number  on  if2  can  be  set  with  TERMS»-4,-1  ,-3.  Positive  (actual  num¬ 
bers)  and  negative  (storage  locations)  entries  in  TERMS  can  be  mixed. 

Negative  values  for  entries  of  ST ART, END , 1ST ART,  or  lEND  now  indi¬ 
cate  a  point  number  (Section  I-C23)  if  one  with  that  number  has  been 
set.  The  feature  described  in  Section  I-C1  thus  must  not  use  a  point 
number  as  a  storage  location  (VALOUT). 

2.  Block  Specifications 

The  size  of  each  block  must  be  specified  by  an  input  statement  with 
item  ="BL0CK",  giving  the  block  size  as  three  entries  in  the  Integer 
array  SIZE(3),  e-g« 

$INPUT  ITEM  =  "BLOCK",  SIZE-  C^ax’^AX’^AX  ^ 

£2  .3 

^MAX’  MAX’^MAX 
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before  any  other  reference  to  that  block  is  made.  The  blocks  are 
numbered  successively  by  the  code  as  each  input  statement  of  this  typo 
is  encountered.  The  three  entries  in  SIZE  will  be  placed  in  the  array 
CMAX  for  the  current  block.  One  such  input  statement  must  be  included 
for  each  block.  The  2D  mode  is  activated  by  the  omission  of  the  third 
entry  In  SiZE,  in  which  case  the  grid  will  be  in  the  x-y  plane.  Block 
numbers  afc  remembered  from  one  input  statement  to  the  next  and  hence 
can  be  omitted  on  subsequent  statements  as  long  as  the  same  block  is 
intended . 

When  the  new  numbered- points  feature  (Section  I-C23)  is  used,  the 
block  size  can  be  set  from  a  numbered  point  by  the  input  statement 

$INPUT  ITEM  .  "SIZE",  SIZE  -  4,, 

Hero  three  entries  (the  actual  block  dimensions)  can  be  given  for  SIZE, 
or  a  single  number  (taken  as  the  point  number)  can  be  given.  In  the 
latter  case,  this  point  would  be  that  at  the  block  corner  opposite  the 
point  at  (1,1,1). 

In  the  numbered-point  mode,  each  block  is  introduced  by  an 
rTEM="BLOCK"  without  SIZE.  The  block  size  is  set  later,  following  the 
statements  that  set  the  numbered  points  and  place  the  boundary  segments 
(ITEM="POINT"  and  ITEM-"SEGMENT" ,  Section  I-C23),  by  an  ITEM-"SIZE" 
statement . 

All  the  boundary  segments  associated  with  the  block  can  be  read  at 
once  by  including  FILE,  giving  the  file  number,  on  the  ITEM»"BLOCK" 
statement.  In  this  case  the  reading  is  done  as  described  in  the  revi¬ 
sion  of  Section  I-C3,  but  for  only  a  single  block  (cf.  also  Section 
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I-C23).  The  only  types  of  input  statements  that  are  allowed  between 
the  ITEM="BLOCK''  and  ITEM="SIZE"  statements  are  those  that  store  values 
for  later  use  (ITEM»"SETVAL'’ ,  Section  I-C1),  those  that  set  point 
locations  (ITEM='' POINT" ,  Section  I-C23),  and  those  that  read  boundary 
segments  from  a  previously  read  entire  file  (ITEM="SEGMENT" ,  Section 
I-C23). 

3.  Reading  of  Boundary  Points 

After  the  block  size  has  been  specified,  the  Cartesian  coordinates 
of  grid  points  on  boundaries  or  interfaces  on  that  block  can  then  be 
read  either  from  a  file  or  can  be  included  directly  on  the  input  state¬ 
ment. 

Reading  from  a  file  is  done  by  an  input  statement  with  ITEM  = 
"FILE".  Here  the  file  number  is  specified  by  the  integer  FILE,  the 
block  is  given  by  the  integer  BLOCK,  and  the  section  of  points  to  be 
read  is  specified  by  the  integer  arrays,  START(3)  and  END(3),  as  de¬ 
scribed  in  Section  I-B5.  (Note  that  "FILE"  and  FILE  have  different 
meanings,  the  former  being  an  alphanumeric  value  given  to  the  variable 
ITEM,  while  the  latter  is  an  integer  variable,  the  value  of  which  is 
the  file  number.)  The  file  will  not  be  rewound  before  being  read 
unless  RSWIND="YES"  appears  on  the  input  statement.  It  is,  of  course, 
not  necessary  to  include  REWIND  on  the  initial  reading  of  a  file. 

The  progression  of  the  reading  of  points  in  the  section  is  speci¬ 
fied  by  the  integer  array  ORDER (3),  the  three  entries  of  which  are 
some  permutation  (not  necessarily  cyclic)  of  1 ,2,3.  The  points  are 
read  with  the  curvilinear  coordinate  5^,  with  i  given  by  the  first 
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ontry  in  ORDER,  running  fastest,  etc.,  on  the  section.  (ORDER  does  not 
affect  the  order  in  START  and  END,  i.e.,  the  first  entries  therein  are 
the  sontion  limits  on  the  coordinate,  etc.)  The  default  for  ORDER  is 

1 .2,3. 

In  general,  the  file  must  contain  a  triad  of  real  Cartesian  coor¬ 
dinate  values  for  each  point  in  succession.  The  file  must  be  unfor¬ 
matted  and  written  as  a  sequence  of  triads  of  single  real  values,  one 
point  per  line,  i.e.. 


X  y  z 


X  y  z 


unless  TRIAD  =  "NO"  is  included,  in  which  case  each  value  is  on  a 
separate  line.  If  only  two  Cartesian  coordinates  are  present  on  the 
file  for  each  point,  the  file  must  have  one  coordinate  to  a  line,  and 
TRIAD="NO"  and  R0RDER=1,2  must  be  included.  (The  2D  mode  assumes  that 
all  three  coordinates  are  present  on  the  file  unless  TRIAD  and  RORDER 
are  included  in  this  manner.)  The  format  is  controlled  by  FORM  to  be 
unformatted,  E20.8,  or  list-directed  as  FORM  is  equal  to  "UNFORM",  "E", 
or  "LIST".  The  default  is  unformatted. 

Tiie  integer  array  RORDER (3),  the  three  entries  of  which  are  some 
permutation  (not  necessarily  cyclic)  of  1,2,3,  specifies  the  order  in 
which  the  Cartesian  coordinates  of  the  point  occur  on  the  file,  i.e.. 
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the  coordinate  ,  with  i  equal  to  the  first  entry  in  RORDER,  is  given 
first,  etc.  The  default  for  RORDER  is  1,2,3.  Zero  entries  in  RORDER 
cause  the  Cartesian  components  that  are  thereby  omitted  not  to  be  read. 
In  this  case  the  file  must  contain  only  the  components  that  are  to  be 
read,  i.e.,  less  than  three  values  for  each  point  and  the  values  must 
be  given  one  to  a  line.  (In  2D,  the  arrays  START,  END,  ORDER,  and 
RORDER  all  require  only  two  entries,  and  only  two  Cartesian  coordinate 
values  are  required  on  the  file  for  each  point.) 

Since  the  entries  of  ORDER  set  the  order  of  a  nest  of  loops  that 
read  the  points  from  the  file  (with  the  first  entry  indicating  the  in¬ 
nermost  loop),  it  is  only  necessary  to  include  ORDER  when  the  two  direc¬ 
tions  on  the  segment  of  the  block  are  not  1,2,  or  2,3,  or  1,3,  or  if  the 
faster  direction  is  higher  than  the  slower  direction,  e.g.  2,1.  In  any 
case,  giving  the  faster  running  direction  as  a  single  entry  for  ORDER 
will  suffice. 

As  an  example  of  this  reading  of  points  from  file,  the  input 
statement 

$INPUT  ITEM  =  "FILE",  FILE  =  12,  BLOCK  =  1,  START  =  1,1,1, 

END  =  2,3, *1,  ORDER  -  1,3,2,  RORDER  =  3,2,1  $ 
reads  2^  points  for  block  1  from  file  12,  From  START  and  END,  the 
coordinate  runs  from  1  to  2,  the  coordinate  runs  from  1  to  3,  and 
the  coordinate  runs  from  1  to  4.  From  ORDER,  the  points  are  read  on 
surfaces  of  constant  5^,  along  lines  on  which  is  constant: 
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These  points  thus  are  read  in  the  following  order: 


(1.M) 

(2.1.1) 


(1.1.2) 

(2.1.2) 


(1.1.3) 

(2.1.3) 


(1.1, 'I) 
(2,1.il) 

(1.2.1  ) 
(2.2.1  ) 


(1.2.2) 

(2.2,2) 


(1 .2.3) 

(2.2.3) 


(1,2,^) 

(2,2,il) 

(1,3,1) 
(2,3,1  ) 


(1.3.2) 

(2,3,2) 


(1.3.3) 

(2.3.3) 


(1  ,3, 'I) 

(2,3. 4) 
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In  this  example  the  Cartesian  coordinates  for  each  point  are  read  in 


the  order  x^,  X2,  ,  because  of  RORDER,  and  must  appear  on  file  12  in 

that  order,  of  course. 

Similar  provision  is  made  for  including  the  grid  points  directly 
on  the  input  statement,  this  being  done  by  an  input  statement  with 
ITEM="LIST".  (The  arrays  BLOCK,  START,  END,  ORDER,  and  ORDER  have  the 
same  functions  as  for  reading  from  a  file.)  In  this  case  the  Cartesian 
coordinates  are  input  as  real  values  in  the  array  VALUES  on  the  input 
statement,  e.g. 

$INPUT  ITEM  =  "LIST",  BLOCK  =  1,  START  =  1,1,1,  END  =  ?,3,3, 


VALUES  = 


$ 


Here  the  first  three  entries  in  VALUES  are  the  Cartesian  coordinates  of 
the  first  point,  the  second  triad  gives  the  coordinates  of  the  second, 
etc.  As  with  a  read  from  a  file,  zero  entries  in  RORDER  mean  that  fewer 
than  three  values  appear  in  VALUES  for  each  point.  (In  2D,  with  only 
two  entries  in  RORDER,  there  need  be  only  two  entries  per  point  in 
VALUES,  i.e.,  the  third  column  in  the  above  example  need  not  appear.) 

In  the  numbered  point-numbered  segment  mode  (Section  I-C23)  an 
entire  file  of  boundary  segments  is  read  in  at  oner  by  including 
ALL="YES"  on  an  ITEM="FILE"  statement  instead  of  BLOCK , START , END , ORDER , 


and  RORDER.  These  segments  may  be  associated  with  several  blocks.  In 
this  mode  the  three  Cartesian  coordinates  must  be  placed  as  a  triad  on 
a  line  of  the  file,  and  all  three  must  be  present,  even  in  the  2D  mode. 

The  individual  segments  are  then  put  into  place  by  input  state¬ 
ments  with  ITEM=" SEGMENT" ,  including  BLOCK, START,  and  END,  and  perhaps 
ORDER,  RORDER,  CLASS,  and  IPRINT.  In  addition,  the  segment  number  must 
be  given  on  this  statement  as  SEGMENT,  corresponding  to  the  COREODT 
number  associated  with  the  segment  in  the  input  of  the  front-end  code 
(Vol.  II,  Section  I-E21).  The  order  in  which  the  segments  are  put  into 
place  here  does  not  have  to  conform  to  that  on  the  file,  and  segments 
can  be  placed  in  more  than  one  position  on  the  block  (e.g.  cuts)  if 
des ired. 

It  ts  also  possible,  when  reading  points  either  from  a  file  or 
directly  on  tne  input  statment,  to  specify  the  classification  (Section 
I- A3)  of  the  points  on  the  section  being  read  by  including 

CLASS  » 

where  one  of  the  values  of  TYPE  given  in  Section  I-A3  appears  in  the 
quotes.  f^inally  the  points  will  be  printed  if  IPRINT  =  "YES"  is  in¬ 
cluded. 

4.  Fixed  Points 

Since  all  points  in  a  block  are  defaulted  to  "FIELD"  points,  it  is 
necessary  to  explicitly  designate  fixed  boundary  points  as  "FIX".  This 
can  be  done  as  the  points  are  read  by  Including  CLASS="FIX"  on  the 
input  statement.  Alternatively,  this  classification  can  be  done  for 
any  section  of  points  through  a  separate  input  statement  with  ITEM  • 
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"FIX"  and  including  BLOCK,  START,  and  END  to  identify  the  section.  For 
example,  the  following  input  statement  classifies  the  30  points  on  the 
^^=1  boundary  of  block  1  as  fixed: 

$INPUT  ITEM  =  "FIX",  BLOCK  =  1,  START  =  1,1,1,  END  =  1,5,6$ 


Once  a  point  has  been  designated  a  fixed  point,  the  classification 
cannot  be  changed,  except  by  the  "UNFIX"  operation  or  in  case  of  spe¬ 
cial  points  (Section  I-C12).  It  should  be  noted  that  the  default 
classification  is  "FIELD",  and  hence  fixed  foundry  points  must  be 
classified  as  "FIX"  either  explicitly  or  as  read  or  interpolated. 

Points  can  be  "unfixed"  by  an  input  statement  with  ITEM=«"UNFIX" . 
The  classification  is  returned  to  the  default,  "FIELD".  The  usage  is  as 
with  ITEM="FIX".  The  "UNFIX"  statement  is  the  only  statement  that  af¬ 
fects  "FIX"  points. 

This  feature  can  be  used  to  classify  all  the  sides  of  a  block  as 
"FIX"  by  first  using  ITEM="FIX"  for  the  entire  block  and  then  using 
ITEM="UNFIX"  for  the  interior. 
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5.  Out  Points 


Similarly,  points  on  a  section  not  already  designated  "FIX"  can  be 
designated  as  "OUT",  i.e.,  to  be  ignored  completely,  by  an  input  state¬ 
ment  with  ITEM="0UT" ,  and  including  BLOCK,  START,  and  END  to  identify 
the  section.  (Points  on  the  surrounding  layer  outside  a  block  are 
defaulted  to  "OUT".) 

6.  Section  Interpolation 

Values  of  the  Cartesian  coordinates  for  grid  points  on  any  section 
of  a  block  can  be  interpolated  from  already-specified  values  on  the 
section  boundary  by  transfinite  interpolation  through  an  input  state¬ 
ment  with  [TEM-" INTER P"  and  including  FUN-"POINTS" .  The  interpolation 
will  not  alter  the  values  at  points  in  the  section  that  have  been 
already  classified  "FIX".  Classification  can  be  called  for  on  the 
interpolation  input  statement  by  including  CLASS="FIX",  etc,,  but  is 
done  after  the  interpolation. 

If  insufficient  boundary  values  are  given  for  section  interpolati¬ 
on,  sub-blocks  or  for  the  interpolation  for  the  algebraic  grid,  the 
code  will  attempt  to  supply  the  missing  values  by  transfinite  interpola¬ 
tion  of  lesser  dimensionality,  using  "ARC"  blending  functions  for  miss¬ 
ing  face  values  and  "LINEAR"  blending  functions  for  missing  edge  values. 

Also,  section  interpolation  will  be  automatically  delayed  until  the 
input  is  completed  if  values  have  not  been  set  on  the  entire  section 
boundary  at  the  time  when  the  interpolation  is  invoked. 
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This  Interpolation  can  be  used  to  set  points  on  boundaries  for 
which  the  actual  shape  is  not  important,  e.g.  remote  boundaries  at 
'infinity'  or  initial  values  on  interfaces  between  the  hexahedrons  in 
the  physical  region.  (It  is  necessary  to  set  points  on  the  interfaces 
even  when  these  points  will  be  changed  in  the  course  of  the  grid  gen¬ 
eration  since  the  code  requires  initial  points  on  all  six  sides  of  a 
block  to  determine  the  control  functions.  Section  I-C15.)  Although 
this  interpolation  can  also  be  used  to  evaluate  control  functions  on 
the  section,  this  use  is  not  standard  and  was  included  only  for  com¬ 
pleteness  to  provide  for  unusual  cases.  (FUN*" CONTROL"  interpolates 
control  functions.  In  that  case,  read  'control  functions'  for  'Car¬ 
tesian  coordinates'  in  the  present  section.) 

The  section  on  which  the  interpolation  is  to  be  done  is  identified 
by  BLOCK,  START  and  END,  and  the  form  of  the  interpolation  is  set  by 
PROTYP="_",  where  the  entry  is  "FACES",  "EDGES",  or  "CORNERS",  corre¬ 
sponding  to  the  portion  of  the  section  boundary  to  be  matched  by  the 
transfinite  interpolation.  Cartesian  coordinate  values  for  all  points 
on  the  section  boundaries  that  are  to  be  matched  must  have  been  set  by 
previous  input  statements.  The  code  checks  for  unspecified  required 
boundary  values. 

With  PROTYP="CORNERS" ,  the  interpolation  is  from  the  eight  corners 


only  (four  corners  in  2D): 


In  this  csso  Cartesian  coordinate  values  at  only  the  eight  corner 
points  need  be  specified  before  the  interpolation.  Values  of  the  Car¬ 
tesian  coordinate  values  at  all  other  points  in  the  section,  including 
its  boundary,  that  have  not  been  classified  "FIX"  will  be  set  by  the 
interpolation.  With  "EDGES",  the  interpolation  is  from  the  twelve  edges 
only  (same  as  "CORNERS"  in  2D): 


Here  values  for  all  points  on  the  twelve  edges  must  be  set  prior  to  the 
interpolation  input  statement.  Again  Cartesian  coordinate  values  will 
be  set  by  the  interpolation  at  boundary  points,  as  well  as  at  interior 
points,  of  the  section,  except  on  the  twelve  edges.  Complete  trans- 
finite  interpolation  from  the  entire  boundary  occurs  with  "FACES"  (the 
default) : 
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for  which  values  for  all  points  on  the  entire  section  boundary  must  bo 
set  before  the  interpolation.  Here  the  interpolation  sets  only  values 
in  the  interior  of  the  section.  The  omission  of  PROYP  produces  this 
latter  form  of  interpolation  by  default. 

It  is  also  possible  to  restrict  the  interpolation  to  less  than  tlie 

full  dimensionality  of  the  section  by  including  PRODIR  ^  , _  where 

the  integer  entries  specify  the  curvilinear  coordinate  directions  in 
which  the  interpolation  is  to  be  performed.  (The  omission  of  PRODIR 
produces  interpolation  to  the  full  dimensionality  possible  on  the 
section.)  With  only  one  entry  in  PRODIR,  the  interpolation  is  simply 
along  a  straight  line  between  two  boundary  points: 


Two  entries  in  PRODIR  gives  2D  interpolation  even  in  a  3D  section,  and 


PROTYP  functions  on  surfaces  on  which  the  two  entries  in  PRODIR  vary  in 
the  manner  described  above  for  2D. 


Tf  the  section  is  two-dimensional,  It  is  not  meaningful  to  include 
PRODIR  with  more  than  one  entry. 

This  restriction  of  the  dimensionality  of  the  interpolation  re¬ 
duces  the  number  of  points  that  are  matched  on  the  section  boundaries, 
of  course.  For  example,  in  3D  with  PROTYP*" FACES"  and  PRODIR-i,  the 
interpolation  is  from  the  two  faces  on  which  is  constant,  instead  of 
from  all  six  faces: 
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Therefore  values  must  be  set  on  only  these  two  faces  before  the  Inter¬ 
polation.  The  interpolation  will  set  values  on  the  remaining  four 
faces,  as  well  as  inside  the  section,  in  this  case  (The  effect  is 
similar  in  2D),  With  PRO TYP®" EDGES"  and  PRODIR»i,  the  interpolation  is 
from  the  edgs  on  which  varies  (This  has  no  meaning  in  2D): 


The  use  of  PRODIR  with  PROTYP-"CORNERS"  is  not  meaningful.  (PRODIR  is 
defaulted  to  1,2,3f  i.e.,  to  interpolation  in  all  directions.  This 
automatically  reduces  to  1,2  in  2D.) 

It  must  be  noted  that  the  entries  in  PROFOR  and  BLEND,  discussed 
below,  are  with  reference  to  the  three  curviliner  directions  regard¬ 
less  of  the  entries  of  PRODIR.  Thus  if  PRODIR  =  3,  indicating  interpo¬ 
lation  in  only  the  direction,  a  value  for  PROFOR  must  appear  as 
PRO FOR ( 3 )» value. 

The  interpolation  may  be  either  Lagrange  or  Hermite,  individually 

in  each  direction,  as  specified  by  the  values  given  by  PROFOR=" ,", , 

" ".  (In  2D,  only  two  values  need  be  given.)  The  choices  are  as 


follows: 


"LAGRANGE"  -  Lagrange  (values  specified  on  each  end).  The  default. 

"HERMITE"  -  Hermite  (values  and  spacing  specified  on  each  end). 

"HERMITE1"  -  Incomplete  Hermite  (values  specified  at  each  end, 
spacing  specified  at  first  end  only). 

"HERMITE2"  -  Incomplete  Hermite  (values  specified  at  each  end, 
spacing  specified  at  second  end  only). 

For  the  Hermite  cases,  the  slope  is  made  orthogonal  to  the  boundary 
with  a  spacing  determined  either  through  specification  by  Inclusion  of 
SPAVAL  =  spacing,  or  through  Lagrange  transfinlte  Interpolation  from 
the  section  sides  if  SPAVAL  is  omitted: 


The  omission  of  PROFOR  produces  Lagrange  interpolation  by  default. 

Finally,  the  blending  functions  for  the  interpolation  will  be 
linear  if  BLEND  =•" LINEAR" ,  or  will  be  based  on  an  Interpolated  au’c 
length  distribution  constructed  from  the  point  distribution  on  the 
section  boundary  if  BLEND=-"ARC"  (the  default).  The  arc  length  distri¬ 
bution  used  in  the  latter  case  is  determined  by  transfinlte  interpola¬ 
tion  from  the  four  faces  (in  3D)  on  which  the  curvilinear  coordinate  in 
the  blending  function  varies: 
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(This  interpolation  for  arc  length  is  automatic  in  the  code  and  is  not 
dependent  on  input.)  For  sections  having  a  degenerate  boundary,  i.e., 
one  on  which  the  Cartesian  coordinates  for  all  points  in  one  or  more 
directions  are  the  same  (as  for  a  polar  axis,  etc,),  the  degenerate 
distribution  will  be  ignored  in  the  interpolation  for  the  blending 
functions  based  on  arc  length: 


If  degeneracy  occurs  on  all  the  boundaries  needed  for  the  arc  length 
Interpolation,  the  blending  functions  will  default  to  linear. 

It  should  be  noted  that  the  boundaries  of  a  section  on  which 
interpolation  is  used  do  not  have  to  be  actual  physical  boundaries  or 
even  interfaces  between  blocks.  For  example,  with  the  conf I guration 
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and  points  inside  the  notch  designated  "OUT",  ID  interpolation  could  be 


used  first  to  set  values  on  the  two  dotted  lines,  and  then  2D  interpo¬ 
lation  could  be  used  to  set  values  in  the  three  sections,  assuming  that 
boundary  values  have  been  read  on  the  solid  lines.  Alternatively, 
values  could  be  read  on  the  dotted  lines,  without  designating  the 
points  thereon  as  "FIX",  followed  by  only  the  2D  interpolation  in  the 
three  sections. 

7.  Interface  Linkage 

If  complete  continuity  of  grid  lines  across  the  interfaces  between 
blocks  is  desired,  the  linkage  among  the  various  blocks  must  be  speci¬ 
fied  by  input  statements  with  ITEM  »  "CUT",  including  BLOCK,  START  and 
END  to  identify  an  object  section  of  grid  points  which  is  to  be  linked 
to  an  image  section  identified  by  IBLOCK,  ISTART  and  lEND.  Values  in 
START  and  ISTART  may  exceed  those  in  END  and  lEND,  and  must  be  set  so 
that  the  progression  from  ISTART  and  lEND  on  the  image  section  corre¬ 
sponds  to  that  from  START  to  END  on  the  object  section.  Also  included 
Is  ORDER  to  specify  the  order  in  which  the  points  on  the  object  section 
are  to  run,  the  order  on  the  image  section  being  fixed  as  1,2,3.  (cf. 


Section  I-C3  for  an  explanation  of  ORDER,  which  is  defaulted  to  1,2,3)- 


Since  the  classification  of  "FIX"  points  will  not  be  changed,  the  cut 
section  may  include  "FIX"  points.  Points  on  the  object  face  that 
correspond  to  points  classified  as  FIX,  ORTHOG,  or  NEUMANN  on  the  image 
face  will  be  made  image  points.  It  is  thus  not  necessary  to  classify 
and  read  data  for  such  corresponding  points  separately. 

One  such  input  statement  roust  appear  for  each  pair  of  interface 
sections  to  be  linked.  The  points  on  the  object  section  that  have  not 
previously  been  designated  "FIX"  will  be  classified  automatically  by 
the  code  as  "FIELD",  and  the  elliptic  grid  generation  system  will 
operate  at  those  points  exactly  as  in  the  rest  of  the  field.  The 
points  on  the  image  section  will  be  classified  automatically  as  "IM¬ 
AGE",  so  that  the  coordinate  values  at  those  points  will  be  kept  equal 
to  the  values  at  the  corresponding  object  points.  Also,  a  layer  of 
points  outside  the  object  section  will  be  classified  automatically  as 
"IMAGE",  and  these  points  will  be  coupled  by  the  code  with  correspond¬ 
ing  object  points  just  inside  the  image  section,  with  values  on  the 
former  being  kept  equal  to  values  on  the  latter.  This  image  layer 
extends  one  point  beyond  each  edge  of  the  cut  section.  A  similar  layer 
will  be  set  up  outside  the  image  section. 

For  example,  consider  the  0-type  configuration  shown  below: 

(l.J.K) 


(1.1 
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Here  the  left  and  right  faces  of  the  block  are  linked,  so  that  the 
input  statement  is 

$INPUT  ITEM  =  "CUT",  START  -  1,1,1,  END  =  I,1,K, 

ISTART  =  1,J,1,  lEND  -  I,J,K  $ 

Two  blocks  can  be  linked  as  follows: 


Here  the  circled  points  are  coupled,  and  the  squared  points  are  cou¬ 
pled,  with  F,  X,  and  I  indicating  "FIELD",  "FIX",  and  "IMAGE"  points, 
respectively,  on  the  diagram.  The  input  statement  for  this  example  is 
as  follows: 

$INFUT  ITEM  =  "CUT",  BLOCK  =  1,  START  =  10,1, 

END  =  10,6,  IBLOCK  -  2,  ISTART  -  1,1,  lEND  -  1 ,6  $ 

It  is  not  necessary  that  a  cut  section  cover  an  entire  side  of  a 
block;  just  that  the  size  of  the  object  and  image  sections  be  the  same. 
It  is  also  not  necessary  that  the  same  curvilinear  coordinates  vary 
over  the  object  and  image  sections,  or  that  the  directions  of  variation 
be  the  same,  since  the  correspondence  between  coordinate  species  on  the 
two  actions  can  be  established  via  ORDER.  For  example,  the  correspon¬ 
dence  of  interfaces  for  the  blocks  shown  below 
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6,7.5 


is  established  by  the  input  statement 

$INPUT  ITEM  ="CUT",  BLOCK  =  1,  START  =  6,7,1  END  =  1,7,5 
IBLOCK  =  2,  ISTART  =  1,1,9  lEND  =  5,6,9,  ORDER  =  3,1.2  $ 

Since  cuts  in  multiple-block  configurations  may  Include  the  edges 
of  a  block  side,  it  is  not  necessary  to  give  a  separate  input  statement 
for  each  edge.  Statements  for  edges  in  3D,  or  for  points  in  2D,  cause 
the  image-object  correspondence  to  be  set  up  only  between  the  two 
indicated  edges  or  points,  without  any  surrounding  layers. 

Although  values  of  the  Cartesian  coordinates  at  points  on  a  cut 
will  be  determined  by  the  grid  generation  system,  it  is  necessary  to 
have  initial  values  on  the  cut  in  order  to  evaluate  the  control  func¬ 
tions  and  to  start  the  Iteration.  Therefore  initial  values  on  the  cut 
must  either  be  read  or  set  by  interpolation.  The  reading  of  values  on 
a  cut  is  done  as  on  an  actual  boundary  (Section  I-C3),  except  that  the 
points  must  not  be  designated  "FIX".  Interpolation  is  as  described  in 
Section  I-C6. 
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The  "(;iJT"  statements  should  be  grouped  at  the  last  of  the  input. 
(Cuts  within  a  block  should  be  grouped  at  the  end  of  the  input  state¬ 
ments  for  that  block.)  This  is  so  that  all  of  the  point  classifica¬ 
tions  will  have  been  made  before  the  cuts  are  set  up. 

8 .  Reflective  Boundary 

A  plane  reflective  boundary  can  be  established  by  an  input  state¬ 
ment  with  ITEM=" REFLECT" ,  using  BLOCK,  START,  and  END  to  identify  the 
section.  (This  feature  is  only  applicable  to  plane  boundaries.)  This 
causes  the  points  on  the  section  not  previously  designated  "FIX"  to  be 
designated  by  the  code  as  "FIELD"  points,  and  the  adjacent  outside 
points  on  the  surrounding  layer  to  be  designated  as  "REFLECT".  As  with 
a  cut,  this  adjacent  layer  is  made  to  extend  one  point  beyond  the 
edges  of  the  reflective  section  on  all  sides.  The  reflective  section, 
however,  must  not  include  the  edges  of  a  block  unless  the  edge  is  part 
of  a  cut  section  on  another  side  since  the  code  must  calculate  a  normal 
vector  at  all  points  on  the  section.  It  is  permissable  to  include 
"FIX"  points  in  the  Interior  of  the  section,  and  the  classification  of 
such  points  will  not  be  changed. 

An  example  of  a  reflective  section  follows: 


The  input  statement  for  this  illustration  is 
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$INPUT  ITEM  =  "REFLECT",  BLOCK  =  1,  START  »  10,2,  END  =  10,5  $ 

Note  that  the  designation  of  the  reflective  section  is  on  a  block 
side  on  the  input.  The  code  designates  the  appropriate  points  on  the 
surrounding  layer  as  "REFLECT".  A  point  designated  "REFLECT",  being 
outside  a  boundary,  has  its  Cartesian  coordinate  values  kept  equal  to  a 
mirror- image  reflection  of  those  at  the  corresponding  grid  point  across 
the  boundary  just  inside  the  block. 

Although  the  Cartesian  coordinate  values  for  points  on  a  reflec¬ 
tive  boundary  will  be  determined  by  the  elliptic  grid  generation 
system,  initial  values  must  be  set  either  by  reading  values  (Section 
I-C3)  or  by  interpolation  (Section  I-C6). 

9.  Boundary  Orthogonality  through  Neumann  Boundary  Conditions 

Orthogonality  on  a  boundary  section  can  be  called  for  by  an  input 
statement  with  ITEM=" NEUMANN" ,  with  BLOCK,  START,  and  END  to  identify 
the  section.  Here  all  points  on  the  section  not  already  designated  as 
fixed  points  will  be  designated  as  points  at  which  orthogonality  will 
be  enforced  through  Neumann  boundary  conditions.  These  points  thus  will 
move  along  the  boundary.  Again  Initial  values  must  be  set  by  reading 
(Section  I-C3)  or  by  interpolation  (Section  I-C6).  Boundary  ortho¬ 
gonality  is  achieved  by  the  code  splining  a  section  of  the  surface  and 
locating  the  point  on  the  spline  from  which  a  normal  extends  to  the 
first  point  off  the  surface. 

The  off-boundary  spacing  can  be  set  on  the  entire  section  by  in¬ 
cluding  SPAVAL,  or  on  portions  by  the  operation  ITEM-"SPACE"  ,  as  in  Sec¬ 
tion  I-C9.  The  default  is  also  as  in  that  section. 
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The  r.ftotion  to  be  spiined  can  be  made  to  extend  beyond  that  of  the 
"NFJJMANN"  points  by  including  ISTART  and  lEND  to  define  the  spiined 
soot  ion.  If  more  than  one  "NEUMANN"  section  appears  on  a  single 
spiined  section,  NEW»"NO"  must  appear  on  all  ITEM=" NEUMANN"  statements 
after  the  first  that  refer  to  the  same  spiined  section.  If  ISTART  and 
lEND  are  omitted,  the  section  to  be  spiined  defaults  to  that  specified 
by  START  and  END. 

In  the  following  illustration: 

$INPllT  [TEM  -  "NEUMANN",  BLOCK  =  1,  START  =  3,5,  END  =  6,7, 

ISTART  =  1,1,  lEND  =  19,20  $ 

$INPUr  ITEM  =  "NEUMANN",  BLOCK  =  1,  START  =  7,10,  END  =  11,15, 

NEW  =  "NO"  i 

two  sections  are  specified  for  boundary  orthogonality,  and  a  larger 
section  that  includes  both  is  spiined: 

19.20 


1.1 
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The  Neumann  boundary  points  can  be  restricted  to  move  along  only 
one  family  of  curvilinear  coordinate  lines  on  all,  or  a  portion  of,  a 
Neumann  section  by  the  use  of  ITEM  =  "NEUMAN!"  ,  "NEUMAN2" ,  or  "NEUMAN3’’ 
after  the  Neumann  section  has  been  set  up  by  the  ITEM  =  "NEUMANN" 
statement.  These  three  input  statements  serve  to  restrict  the  movement 
to  along  the  curvilinear  coordinate  direction  indicated  by  the  name. 
The  boundary  portion  ia  Indicated  by  BLOCK,  START,  and  END  as  usual. 
The  Neumann  section  on  which  this  portioh  lies  must  have  been  set  up 
before  this  restriction  of  direction  is  made. 

Neumann  boundary  conditions  can  also  be  used  to  impose  zero-curva¬ 
ture  extrapolation  as  described  in  Section  I-C26. 

10.  Boundary  Orthogonality  through  Control  Functions 

Orthogonality  on  a  boundary  section  can  also  be  called  for  by  an 
input  statement  with  ITEM="0RTH0G" ,  with  BLOCK , START ,  and  END  to  iden¬ 
tify  the  section.  Here  all  points  on  the  section  not  already  designated 
as  fixed  points  will  be  designated  as  points  at  which  or uhogonallty 
will  be  enforced  through  iterative  adjustment  of  the  control  functions. 
The  section  defined  for  this  purpose  must  not  include  block  edges 
unless  the  edge  is  part  of  a  cut  section  on  another  side.  The  section 
may  include  "FIX"  points  in  the  interior,  and  the  classification  of 
such  points  will  not  be  changed. 

In  contrast  to  the  use  of  Neumann  boundary  conditions,  the  points 
in  this  case  do  not  move  on  the  boundary.  The  off-boundary  spacing  on 
the  entire  section  can  be  set  by  including  .'SPAVAL.  (If  this  spacing  is 
to  be  different  on  different  parts  of  the  section,  ITEM=" SPACE"  can  be 
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used  Lo  -v;L  the  spacing  on  each  part.  Section  I-C11).  If  SPAVAL  is 


omitted,  the  spacing  defaults  to  that  from  the  algebraic  grid,  but 
projected  normal  to  the  boundary: 


The  extent  of  the  orthogonality  into  the  field  is  controlled  by 
the  values  given  for  CONFAC  (defaulted  to  1.0).  A  value  less  than  1.0 
increases  the  extent.  The  interval  at  which  the  control  functions  will 
be  updated  is  set  by  including  the  integer  CONUPI  (the  default  is  1, 
i.e,,  update  at  each  iteration).  This  updating  is  not  started  until  10 
iterations  have  been  completed.  In  general,  optimum  acceleration 
parameters  (the  default)  should  be  used  when  the  control  functions  are 
iter’atively  adjusted.  Again  initial  values  must  be  set  on  the  section 
by  reading  (Section  I-C3)  or  by  interpolation  (Section  I-C6). 

The  section  does  not  have  to  be  on  a  block  side.  If  the  section  is 
not  on  a  block  side,  the  side  of  the  section  on  which  the  orthogonality 
is  to  be  applied  will  be  the  upper  side  unless  DIRECT-" LOWER"  is  inc¬ 
luded.  Tnus  if  orthogonality  is  intended  on  both  sides  of  a  section  in 
the  interior  of  a  block,  it  is  necessary  to  use  two  input  statements  of 
this  type,  one  for  each  side. 
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If  INTORT="YES"  is  included,  such  Internal  "ORTHOG"  points  will  be 
reclassified  as  "FIELD"  after  the  grid  has  been  generated  and  before  the 
output  file  is  written. 

1 1 .  Off-Boundary  Spacing 

The  off-boundary  spacing  for  boundary  orthogonality  or  Hermlte 
interpolation  can  be  set  by  an  input  statement  with  ITEM  =  "SPACE", 
section  defined  by  BLOCK,  START,  and  END  and  the  spacing  given  by 
SPAVAL. 


12.  Special  Points 

Special  points  in  the  field  can  be  made  averages  of  all  of  the 
neighboring  field  points  by  an  input  statement  with  ITEM  =  "AVERAGE", 
with  BLOCK  and  the  array  P0INT(3)  identifying  the  point.  Here  POINT 
contains  three  integer  entries  giving  the  curvilinear  coordinates  of 
the  special  point.  (This  designation  will  override  a  previous  "FIX" 
designation.)  If  WEIGHT="YES"  is  included  on  the  input  statement,  then 
the  average  will  be  weighted  with  the  cell  volume,  i.e.. 


where  and  Cjj,  are  the  volume  and  position  associated  with  a  neighbor¬ 
ing  grid  point. 

For  example,  the  Cartesian  coordinates  of  the  special  point  illus¬ 
trated  below  by  the  solid  circle  would  be  set  as  (he  average  of  those 
at  all  of  the  circled  points: 
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Here  the  input  statement  is 

$INPUT  ITEM  =  "AVERAGE",  BLOCK  =  _ ,  POINT  =  _ , _ , _  $ 

Alternati vely,  it  is  possible  to  construct  a  local  coordinate 
system  at  a  special  point  by  an  input  statement  with  ITEM  =  "FIELD" 
(including  BLOCK  and  POINT  to  identify  the  special  point),  to  designate 
the  special  point  as  a  "FIELD"  point  to  be  generated  by  the  grid  gen¬ 
eration  system,  followed  by  one  or  more  input  statements  with 
rTRM="IMAGE"  (inluding  BLOCK,  POINT,  IBLOCK,  and  IPOINT).  Here  with 
[TEM=" IMAGE" ,  the  Cartesian  coordinates  of  the  point  identified  by 
IBLOCK  and  IPOINT  (the  image  point.)  will  be  kept  equal  to  those  of  a 
point  identified  by  BLOCK  and  POINT  (the  object  point).  Thus  in  the 
illustration  below,  the  special  point  is  that  with  the  open  square,  and 
a  local  coordinate  system  is  set  up  according  to  the  dotted  lines  by 
making  the  open-circle  point  the  image  of  the  solid-circle  point: 
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The  Input  here  is  as  follows: 

$INPUT  ITEM  =  "CUT",  BLOCK  =  3,  START  =  1,6,  END  =■  1,11, 

IBLOCK  =  1,  ISTART  =  4,1,  lEND  =  9,1  $ 

$INPUT  ITEM  =  "CUT",  BLOCK  =  3,  START  =  1,6,  END  =1,1, 

IBLOCK  =  2,  ISTART  =  4,5,  lEND  =  9,5  $ 

$INPUT  ITEM  =  "CUT",  BLOCK  =  1,  START  =  1,1,  END  =  4,1, 

IBLOCK  =  2,  ISTART  -  1,5,  TEND  =  4,5  $ 

$INPUT  ITEM  =  "FIELD",  BLOCK  =  3,  POINT  =  1 ,6  $ 

$INPUT  ITEM  =  "IMAGE",  IBLOCK  =  3,  IPOINT  =  0,6, 

BLOCK  =  1,  POINT  =  3,1  $ 

The  statement  with  ITEM  =  "FIELD"  changes  the  classification  of  the 
special  point  (1,6)  in  block  3  to  "FIELD",  The  last  statement  is  neces¬ 
sary  to  establish  the  local  coordinate  system  at  the  special  point  by 
changing  the  object  point  of  the  image  point  (0,6)  on  the  surrounding 
layer  to  the  left  of  the  special  point  in  block  3  from  point  (4,2)  in 
block  1,  as  set  by  the  first  "CUT"  statement,  to  point  (3,1)  in  block  1. 
The  points  (4,1)  in  block  1  and  (4,5)  in  block  2  are  both  image  points 
having  the  special  point  as  their  common  object  point.  The  choice  of 
block  3  as  the  block  in  which  the  special  point  is  designated  a  field 
point  is  arbitrary,  of  course.  There  are  several  equivalent  setups 
here,  all  of  which  yield  the  same  grid  in  the  physical  region. 

1 3.  Smoothing  the  Grid  or  Control  Functions 


Values  of  the  Cartesian  coordinates  or  control  functions  at  points 
within  a  sectin  can  be  smoothed  by  an  input  statement  with  ITEM= 
"SMOOTH",  the  section  again  being  identified  by  BLOCK,  START,  and  E^ND . 
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The  smoothing  is  done  only  in  the  curvilinear  directions  entered  in 
oMODIR  (the  default  is  for  all  three  directions).  The  Cartesian  compo¬ 
nents,  or  the  control  functions,  to  be  smoothed  are  specified  by  en¬ 
tries  Ln  SMOCOM  (the  default  is  all  three  components).  If  FUN  = 
"BOUND" ,  the  smoothing  is  done  on  the  boundary  values  before  the  code 
interpolates  for  the  algebraic  grid  within  the  block,  or  is  done  on  the 
algebraic  grid  if  FUN="POINTS"  (the  default).  If  FUN=" CONTROL" ,  the 
control  functions  are  smoothed.  Each  control  function  Indicated  by 
SMOCOM  is  smoothed  only  in  the  other  two  directions,  i.e.,  is 

smoothed  in  the  2  and  3  directions,  unless  SMODIR  Indicates  smoothing  in 
only  a  single  direction.  All  the  blocks  can  be  treated  by  a  single 
Input  statement  with  ALL="yES"  included  instead  of  BLOCK,  START,  and 
END. 

1  .  Algebraic  Grid 

The  code  generates  an  algebraic  grid  in  the  interior  of  all  blocks 
by  transfinite  interpolation  to  serve  as  the  initial  solution  for  the 
elliptic  grid  generation  system.  The  form  of  this  interpolation  is 
controlled  by  an  input  statement  with  ITEM-" INITIAL"  including  all  of 
the  interpolation  parameters  discussed  in  Section  I-C6,  except  that  the 
spacing  for  Hermite  interpolation  is  automatically  interpolated  from  the 
sides.  The  same  interpolation  form  can  be  done  for  all  blocks  by  one 
statement  with  ALL="YES",  or  can  be  done  separately  for  each  block  by  a 
s'^ries  of  input  statements  including  BLOCK  to  specify  the  block  number. 
It  is  possible  to  turn  off  this  interpolation  by  including  PRODIR-"NONE" 
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if  the  initial  grid  is  being  read  in.  It  is  also  possible  to  turn  off 
the  elliptic  generation  system  by  simply  omitting  ITMAX,  and  thus  to 
take  this  algebraic  grid  as  the  final  result. 

15.  Control  Functions 

The  mode  of  determination  of  the  control  functions  by  the  code  is 
controlled  by  the  variable  CONTYP  which  need  appear  only  once,  anywhere 
in  the  input.  If  CONCUT  =  "AVERAGE"  is  included,  the  control  functions 
on  all  cuts  will  be  averaged  across  the  cut.  This  is  not  generally 
recommended.  One  of  five  modes  is  specified  by  CONTYP. 

A  value  of  "NONE"  for  CONTYP  gives  a  Laplace  grid,  i.e.,  with  the 
control  functions  set  to  zero  everywhere.  This  is  the  smoorhent  posr.i- 
ble  grid,  but  may  not  have  a  suitable  concentration  of  lines  in  that  the 
boundary  point  distributions  have  little  effect  in  the  field. 

With  CQNTYP="INITIAL"  the  control  functions  are  evaluated  directly 
from  the  initial  algebraic  grid  by  substitution  of  the  initial  grid 
points  into  the  elliptic  grid  generation  system.  This  would  actually  be 
trivial,  in  that  the  algebraic  grid  would  be  returned  unchanged  by  the 
generation  system  in  one  iteration,  except  that  these  control  functions 
are  smoothed,  before  being  used.  These  control  functions  will  reflect 
the  same  relative  grid  line  distribution  from  the  initial  algebraic  grid 
but  with  more  smoothness  and  less  skewness.  This  is  actually  the  pre¬ 
ferred  mode,  especially  in  more  complicated  block  configurations,  and 
hence  is  the  default. 


The  Mdes  "ORTHO"  and  "0RTH02"  also  determine  the  control  func¬ 


tions  from  the  initial  algebraic  grid  but  with  all  terms  arising  from 
nonorthogonality,  i.e.,  the  off-diagonal  metric  elements,  discarded  for 
the  former.  With  "0RTH02"  terms  arising  from  nonorthogonality  of  and 
lines  when  the  control  function  (i,j,l<  cyclic)  is  evaluated  are 
retained.  There  is  really  little  difference  between  these,  two  modes  in 
most  cases.  These  two  modes  will  produce  a  grid  that  is  somewhat  more 
orthogonal  than  the  initial  algebraic  grid,  but  may  not  always  be  smooth 
and  may  have  skewness  at  some  boundaries. 

The  mode  "RADIUS"  evaluates  the  control  function  by  interpo¬ 
lating  the  contribution  from  the  boundary  point  arc  length  distribution 
between  the  four  sides  (two  in  2D)  of  the  block  on  which  the  coordi¬ 
nate  varies,  and  interpolating  the  curvature  contribution  between  the 
other  two  sides. 


arc  length  contrisutlon  curvature  contribution 

for  P,  for  P, 


This  provides  for  the  retention  of  the  boundary  point  distribution  in 
the  field,  but  is  not  generally  usable  with  "OUT"  points  in  the  block. 
Such  a  block,  however,  can  always  be  broken  into  several  smaller  blocks 
using  the-  sub-block  feature  (Section  I-C16). 
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The  mode  "SIDES"  operates  in  a  similar  manner  to  "RADIUS"  except 
that  the  curvature  contribution  is  interpolated  together  with  the  arc 
length  contribution.  This  mode  is  not  effective  if  the  curvature  varies 
widely  between  the  boundaries. 

Although  the  specification  of  the  control  function  mode  is  noi — 
mally  made  once  for  the  entire  system,  it  is  possible  to  make  the 
specification  separately  for  sections  of  grid  points  by  an  input  state¬ 
ment  with  ITEM="CONTROL" ,  using  BLOCK,  START,  and  END  to  identify  the 
section.  In  this  case  the  evaluation  and  interpolation  specified  by 
CONTYP  occurs  within  the  section,  using  the  section  boundaries  as  if 
they  were  block  boundaries.  Point  distributions  on  all  sides  of  the 
section  must  have  been  established  before  this  operation  is  invoked. 
(This  procedure  is  not  generally  recommended.) 

Finally,  the  control  functions  can  be  evaluated  iteratively  by  the 
grid  generation  system  so  that  the  grid  is  orthogonal  to  a  boundary 
section,  with  a  specified  spacing  off  that  boundary,  by  an  input  state¬ 
ment  with  ITEM»"ORTHOG" ,  using  BLOCK,  START,  and  END  to  identify  the 
section,  as  has  been  discussed  in  Section  I-C9.  Only  points  not  already 
classified  "FIX"  will  be  affected.  The  control  functions  will  be  updated 
at  intervals  specified  by  an  integer  entry  in  CONUPI  during  the  iter¬ 
ation  of  the  grid  generation  system.  In  this  case  CONTYP  serves  only  to 
set  the  initial  control  functions  and  should  generally  be  left  to  the 
default. 
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16.  Sub-Block  Structure 


In  some  more  complicated  configurations,  particularly  those  with 
physical  boundaries  in  the  Interior  of  a  block  or  on  only  a  portion  of  a 
block  side,  it  is  advantageous  to  set  up  a  sub-block  structure  for  the 
interpolation  for  the  algebraic  grid  and/or  for  the  evaluation  of  the 
control  functions.  This  proceeds  as  follows: 

Once  a  block  has  been  specified  (Section  I-C2),  a  series  of  input 
statements  with  ITEM="SUB",  including  BLOCK,  START,  and  END,  can  be 
given  to  define  sub-blocks  within  the  block.  If  this  structure  is  used, 
the  sub-blocks  must  not  overlap  and  must  completely  fill  the  block 
(except  for  any  sections  of  "OUT"  points). 

If  no  points  are  set  on  a  sub-block  boundary,  values  will  automat¬ 
ically  be  interpolated  on  that  boundary  if  possible  as  described  in 
Section  I-C6. 

An  example  follows: 


$ITEM  =  "BLOCK",  SIZE  •=  9,11  $ 


$ITEM  =  "SUB", 

START  - 

1,1, 

END  =  U,11 

$ITEM  =  "SUB", 

START  - 

‘1,5, 

END  -  7,11 

$ITEM  »  "SUB", 

START  - 

7,1, 

END  -  9,11 
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Here,  If  values  are  read  or  interpolated  for  START=4,5,  END=4,11  and  for 
START»7,5,  END=*7,11  the  Interpolation  for  the  algebraic  grid  will  be 
done  within  the  three  sub-blocks. 

The  sub-block  structure  affects  only  the  interpolation  for  the 
algebraic  grid  and  the  evaluation  of  the  control  functions,  and  is 
irrelevant  to  all  other  features. 

1 , .  Storage 

The  final  grid  can  be  stored  on  a  file  by  an  input  statement  with 
ITEM»"STORE" ,  with  the  file  number  as  the  integer  FILE.  The  total 
number  of  blocks  (the  integer  BMAX),  and  the  integer  array  CMAX  contain¬ 
ing  the  size  of  each  block  are  written  on  the  file  first,  unformatted  as 
BMAX,((CMAX(CI,B),  CI-1,3,  B=1,BMAX) 

Then  the  arrays  TYPE,  IMAGE,  and  R  are  written  unformatted  by 

DO  B  =  1 ,  BMAX 

DO  C3  =  IS,  CMAX(3,B)  +  NS 

DO  C2  =  IS,  CMAX(2,B)  +  NS 

DO  Cl  =  IS,  CMAXd  ,B)  +  NS 

WRITE( _ )  TYPE(B,C1 ,C2,C3) 

WRITE(_)  (IMAGE(CI  ,B,C1  ,C2,C3),  CI  =  0,3) 

WRITE(_)  (R(CI,B,C1  ,C2,C3),  CI  =  1,3) 

Here  IS=0  and  NS=1  if  the  code  has  been  compiled  for  one  surround¬ 
ing  layer  of  points  on  each  block,  or  IS=-1  and  NS=2  for  two  layers. 
These  parameters  are  set  in  PARAMETER  statements  by  global  edits.  If 
OUTER-"NO"  is  included,  then  the  surrounding  layer  of  points  outside 
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each  block  will  not  be  put  on  the  file,  i.e.,  the  DO  limits  are  1  and 
CMAX.  In  this  case,  the  arrays  TYPE  and  IMAGE  are  not  written  on  the 
file.  The  inclusion  of  BMAX  and  CMAX  on  the  output  file  is  suppressed 
if  OUTER =" BOUND"  is  included.  In  this  case,  only  the  coordinate  array  R 
is  put  on  the  file,  and  without  any  surrounding  layers. 

If  KTLE  is  equal  to  "RESTART",  Instead  of  a  number,  a  restart  file 
will  be  written  on  file  7  from  which  the  iteration  can  be  continued.  If 
both  a  restart  file  and  storage  of  the  grid  as  above  are  desired,  two  of 
these  input  statements  must  be  given.  File  7  cannot  be  used  as  a  storage 
file  for  the  grid. 

All  or  sections  of  all  or  certain  blocks  can  be  stored  on  a  sepa¬ 
rate  file  (8)  for  plotting  as  discussed  in  Section  I-D. 

1 8 .  Iterative  Solution  Parameters 

The  maximum  number  of  iterations  allowed  for  the  elliptic  grid 
generation  system  Is  specified  by  an  integer  entry  in  ITMAX.  Omission 
of  ITMAX  will  cause  the  initial  algebraic  grid  to  be  output  as  the  final 
grid,  bypassing  the  elliptic  grid  generation.  The  convergence  tolerance 
for  the  iteration  is  specified  by  a  real  entry  in  TOL.  This  convergence 
tolerance  is  relative  to  the  maximum  extent  of  the  physical  region  in 
any  of  the  three  Cartesian  directions.  If  TOL  is  omitted,  the  total 
number  of  iterations  indicated  by  ITMAX  will  be  done.  T.ie  acceleration 
parameter  for  the  iteration  is  a  real  entry  (between  0  and  2)  in  ACCPAR. 
This  value  should  normally  be  around  1.3,  and  should  be  decreased  for 
small  fields  or  strong  concentration  of  lines.  If  ACC PAR “"OPTIMUM"  (the 
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default),  a  variable  acceleration  parameter  field  will  be  set  up  and 


this  choice  is  recommended.  These  parameters  need  appear  only  once, 
anywhere  in  the  input. 

1 9 .  Jacobian  Check 

After  the  initial  algebraic  grid  has  been  generated,  the  code 
checks  for  points  with  zero  Jacobian,  i.e.,  zero  cell  volume  (usually 
indicating  failure  to  input  all  necessary  boundary  or  interface  points), 
or  a  locally  left-handed  coordinate  system.  A  left-handed  system  my  be 
an  indication  of  a  twisted  grid  resulting  from  an  inconsistent  ordering 
of  points  on  some  boundary  segment,  or  may  be  simply  a  case  of  the 
algebraic  grid  overlapping  a  boundary.  In  the  latter  case  the  elliptic 
generation  system  may  be  able  to  rectify  the  grid.  The  action  taken  by 
the  code  upon  discovery  of  either  of  these  phenomena  is  control  led  by 
the  value  input  for  the  integer  CHECK,  A  value  of  "YES"  causes  the  code 
to  simply  stop  before  starting  the  iteration  in  either  case.  A  value  of 
"MO"  (the  default)  causes  a  stop  in  the  case  of  a  zero  Jacobian,  but 
allows  the  generation  to  continue  with  the  lef t-hancc-d  system.  T:i  any 
case  of  a  stop,  the  algebraic  grid  is  generated  and  the  output  proceeds 
as  specified.  The  parameter*  CHECK  need  appear  only  once,  anywhere  in 
the  input. 

20 .  Derivative  Difference  Forms 

The  difference  expression  for  the  first  derivatives  is  sot  by  the 
integer  DFIRST,  The  value  "CENTRAL"  gives  two-polni,  centr  tl  differ¬ 
ences  : 
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while  "ONRSIDE”  gives  two-point  one-sided  differences,  the  direction  of 
which  depends  on  the  sign  of  the  control  function; 


©  © 


The  value  "VARIABLE"  gives  central  differences  with  control  functions 
that  do  not  exceed  2.0  in  magnitude,  with  a  weighted  average  between 
central  and  one-sided  otherwise.  The  average  changes  inversely  with  the 
control  function  to  fully  one-sided  for  very  large  values.  The  default 
is  "VARIABLE". 

The  difference  expression  for  the  cross  derivatives  is  set  by  the 
integer  DCROSS.  The  value  "CENTRAL"  (the  default)  gives  four-point 
symmetric  differences: 


©  0 


X 


©  © 

while  "ONESIDE"  gives  a  diagonal  form  depending  on  the  sign  of  the 
off-diagonal  metric  elements. 
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These  parameters  need  appear  only  once,  anywhere  In  the  input. 

21 .  Block  Storage 

The  code  is  set  up  to  tre  t  one  block  at  a  time  in  order  to  save 
storage.  This  is  accomplished  in  one  of  two  ways,  controlled  by  the 
value  given  for  the  quantity  KSTORE  which  need  appear  only  once  but  must 
be  included  on  the  first  input  statement.  If  KSTORE»"SSD"  (the  default), 
each  block  is  kept  on  a  separate  disk  file  to  be  accessed  as  needed. 
These  files  are  numbered  BASE  +  block  number,  where  the  integer  BASE  is 
set  to  30  in  a  PARAMETER  statement  but  must  be  changed  by  a  global  edit. 
All  of  these  files  should  be  assigned  to  a  solid-state  disk  in  the  job 
control  language,  if  one  Is  available,  otherwise  considerable  time  and 
possible  expense  will  be  spent  in  10. 

The  other  alternative  is  to  keep  all  blocks  in  core  via  KSTORE= 
"COPE" . 


22.  Restart 

The  code  can  be  restarted  from  the  algebraic  grid  by  including 
RESTART-" INITIAL"  on  any  input  statement,  or  the  iteration  can  be 
continued  by  including  REST..iT  -  "ITERATE". 
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23.  Numbered  Points 


It  is  possible  to  reference  a  point  by  a  single  number  instead  of 
giving  the  three  indices  of  the  point.  This  feature,  and  the 
companion  feature  In  the  front-end  boundary  code,  allows  the  number  of 
points  on  a  segment  to  be  changed  where  the  segment  is  generated  in  the 
front-end  without  requiring  changes  in  the  input  to  the  grid  code.  These 
features  also  greatly  simplify  the  set  up  of  the  block  structure  for 
complex  configurations.  If  a  negative  value  is  given  for  any  of  the 
three  entries  of  START , END ,ISTART  or  lEND ,  the  corresponding  index  is 
taken  from  the  table  of  points  according  to  the  point  number  indicated 
by  the  magnitude  of  the  negative  value.  This  feature  allows  indices  to 
be  taken  from  different  points.  Thus  the  circled  point  in  the  illustra¬ 
tion  below 


8 


5 


7 


6 


can  be  referenced  by  START--5,-1  (or  equivalently  by  -8,~2).  Positive 
and  negative  values  can  also  be  mixed,  with  the  former  indicating  indi¬ 
ces  directly. 
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When  only  a  single  positive  value  is  given  for  START,  END,  ISTART, 
lEND  or  SIZE,  that  value  is  taken  as  the  point  number,  and  the  three 
indices  f'o*'  the  point  are  obtained  from  a  table  of  points 
that  has  been  set  up  by  a  series  of  input  statements  with  ITEM=" POINT" . 
These  statements  can  set  the  point  indices  directly  by 

$INPUT  ITEM  =  "POINT",  POINT  =  point  number,  LOCAT  =  ,  f}  $ 

However,  it  is  also  possible  to  utilize  information  from  the 
front-end  surface  code,  stored  there  with  ITEM="COMBINE"  when  boundary 
segments  are  combined  onto  a  single  file  (cf.  Vol.  II,  Section  I-E21). 
This  usage  is  as  follows: 

When  segments  are  combined  onto  a  single  file  by  the  ITEM="COMDINE" 
operation  in  the  front-end  code,  a  table  of  contents  is  written  at  the 
beginning  of  the  file  if  CONTENT="YES"  is  included.  This  table  includes 
the  COREOUT  number  and  the  dimensions  of  each  segment  on  the  file.  (Each 
segment  in  the  combination  must  have  been  stored  in  core  using  COREOUT 
when  generated,  since  the  COREOUT  number  becomes  the  segment  number.) 

This  entire  file  of  boundary  segments  generated  by  the  front-end 
code  can  be  read  by  the  grid  code  using  the  input  statement 

$INPUT  ITEM  =  "FILE",  FILE  =  file  number,  ALL  =  "YES"  $ 

This  file  can  contain  segments  from  several  blocks,  but  must  include  all 
the  segments  associated  with  those  blocks. 

A  block  is  then  Introduced  by  an  input  statement  with  ITEM="BLOCK" . 
Here  SIZE  can  be  included  with  three  values  as  originally,  or  can  be 
omitted  to  be  specified  later  as  discussed  below  in  terms  of  a  point 
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number.  (If  all  the  segments  are  associated  with  a  single  file,  the 
file  can  alternatively  be  read  by  including  the  file  number  as  FILE, 
together  with  the  associated  file  parameters,  cf.  Section  I-C3,  on  the 
ITEM="BLOr,K"  statement.) 

After  the  block  has  been  introduced,  all  the  numbered  points  asso¬ 
ciated  with  segments  on  the  file  can  be  set  up  by  a  series  of  input 
statements  of  the  form 

$INPUT  ITEM  =  "POINT",  POINT  -  point  number, 

OPOINT  =  other  point  number,  SEGMENT  =  segment  number, 

DIRECT  -  _ ,  NDEX  »  _  $ 

Here  POINT  gives  the  number  of  the  point  being  set,  OPOINT  is  the  number 
of  another  corner  point  on  the  segment  identified  by  SEGMENT,  DIRECT  is 
+  1  ,  ±2,  or’  ±3,  indicating  which  index  or  5^)  changes  from  OPOINT 

to  POINT  and  is  pos itive( negative)  if  that  index  increases( decreases), 
and  NDEX  is  2  if  the  point  progression  from  OPOINT  to  POINT  corresponds 
to  the  slower  running  dimension  on  the  segment  or  is  omitted  otherwise. 
One  point  number  on  a  closed  circuit  must  be  set  up  directly  with  the 
statement 

INPUT  ITEM  =  "POINT",  POINT  =  point  number,  LOCAT  -  5^  $ 

before  the  others  on  the  circuit  follow. 

As  an  example,  if  the  segment  #1  below  was  generated  by  the  front- 
end  code  with  the  faster  running  point  progression  as  indicated  by  the 
arrows , 
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the  four  numbered  points  can  be  set  as  follows: 

$  INPUT  ITEM  =  "POINT",  POINT  «  1,  LOCAT  =  1,1,1  $ 

$  INPUT  ITEM  =  "POINT",  POINT  =  2,  OPOINT  =  1,  SEGMENT  =  1, 

DIRECT  =  1  ,  NDEX  «  2  $ 

$  INPUT  ITEM  =  "POINT",  POINT  =  3,  OPOINT  =  2,  SEGMENT  =  1, 
DIRECT  =  2,  NDEX  »  1  $ 

$  INPUT  ITEM  =  "POINT",  POINT  =  4,  OPOINT  =  3.  SEGMENT  -  1, 
DIRECT  =  -1 ,  NDEX  =  2  $ 

Note  that  this  setup  sequence  is  not  unique,  e.g.,  point  4  could  have 
been  set  from  #1,  but  the  result  is  unique.  Also,  there  is  no  required 
order,  and  any  of  the  points  could  have  been  set  directly  first.  If 
this  segment  has  dimensions  (5,4)  from  the  front-end  code,  the  point 
indices  here  will  be  as  follows: 


point 

1 

2 

3 

4 


1  1  1 

4  1  1 

4  5  1 

1  5  1 
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A  point  can  also  be  set  from  another  point  without  reference  to 
stored  segments  by  including  the  number  of  points  joining  the  point  to 
the  othet'  point.  Instead  of  SEGMENT  and  NDEX.  Thus,  if  point  #1  is  at 
(1,3,^)  and  point  #2  is  set  by 

$INPUT  ITEM  =  "POINT",  POINT  =  2,  OPOINT  =  1,  POINTS  *=  5,  DIRECT  =  2  $ 

the  indices  of  point  will  be  (1,7,2). 

It  is  also  possible  to  create  a  group  of  new  points  from  a  group  of 
other  points  by  including  ALL="YES",  and  either  POINTS  or  SEGMENT  and 
NDEX.  In  this  case  a  set  of  new  points  will  be  created  from  all  the 
presently  created  points.  The  new  points  will  be  numbered  as  the  other 
point  numbers,  plus  the  value  given  as  POINT.  This  feature  is  normally 
used  to  create  points  on  an  opposite  side  of  a  block  having  the  same 
segment  configuration,  e.g.  for  a  body  of  revolution. 

After  all  the  points  in  the  block  have  been  set,  all  the  boundary 
segments  associated  with  that  block  are  put  in  place  by  a  succession  of 
input  statements  of  the  form 

IINP'JT  ITEM  =  "SEGMENT",  SEGMENT  -  segment  number, 

START  =  point  number,  END  =  point  number  $ 

Here  CL,AS.S="FIX"  can  be  included  if  appropriate,  as  can  IPRINT  (cf.  Sec¬ 
tion  I-C3).  The  segment  number  given  on  this  statement  corresponds  to 
the  value  of  COREOUT  used  in  connection  with  this  segment  in  the  input 
for  the  front-end  code,  as  has  been  noted.  The  order  in  which  these 
statements  appear  does  not  have  to  conform  to  the  order  in  which  the 
segments  were  written  on  the  file. 
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Finally,  the  size  of  the  block  can  be  set  by  the  input  statement 


$INPUT  ITEM  -  "SIZE",  SIZE  »  point  number  $ 

where  the  point  number  given  is  that  of  the  block  corner  most  remote 
from  the  point  at  (1,1,1); 


This  procedure  is  followed  for  each  block  associated  with  the  file 
of  segments.  Other  files  with  segments  from  other  groups  of  blocks  can 
then  follow. 

The  same  point  number  can,  and  should,  be  used  in  several  blocks 
for  a  common  point  in  physical  space. 

2^ .  2D  Grid  on  Curved  Surface 

The  code  can  generate  a  2D  grid  on  a  curved  surface  as  follows: 

The  2D  array  of  points  defining  the  surface  is  first  read  in  by  an 
input  statement  with  ITEM«" SURFACE" ,  with  the  dimensions  of  the  surface 
given  by  including  the  array  SIZE(2).  The  three  Cartesian  coordinates 
of  the  points  defining  the  surface  are  read  from  a  file  if  the  file  num¬ 
ber  is  included  as  FILE,  or  from  the  namelist  if  VALUES  is  included  (cf. 
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Section  I-C3).  The  reading  is  done  as  is  described  in  Section  I-C3.  but 
without  BLOCK, START  and  END.  This  surface  can,  of  course,  have  been 
generated  by  the  front-end  code  or  some  other  code. 

This  surface  is  splinod  and  the  code  then  functions  in  a  2D  mode, 
but  in  terms  of  the  two  spline  coordinates,  l.e.,  surface  parametric 
coordinates.  These  two  parametric  coordinates  (u,v  in  the  figure  be¬ 
low)  are  simply  the  indices  of  the  curved  surface  array,  i.e.,  they 
vary  from  1  to  the  dimensions  (M,N  below)  of  the  surface  in  each  of  the 
two  families  of  lines  forming  the  surface. 


The  two  coordinate  values  that  are  read  for  points  on  boundary 
segments  on  the  grid  to  be  generated  must  be  values  of  these  para¬ 
metric  coordinates.  These  values  can  conveniently  be  generated  by  the 
front-end  code  using  the  ITEM="CORPAR"  operation  to  convert  Cartesian 
coordinate  values  for  points  on  a  curve  to  parametric  coordinates  after 
the  curve  has  been  generated  on  the  curved  surface  using  the 
SIIRFACE-"CURVED''  mode  in  the  front-end  code  (cf.  Vol.  II,  Section 
I-B8).  Thus  the  curved  surface  can  be  generated  by  the  front-end  code 


and  stored  on  file  for  reading  into  the  grid  code  (via  ITEM-"SURFACE 


described  below).  Next  in  the  front-end  code,  this  surface  can  be 
splined  and  the  boundary  edges  of  the  grid  can  be  generated  on  this 
surface  using  the  SURFACE="CURVED"  mode  there.  The  Cartesian  coordi¬ 
nates  of  the  points  on  these  edges  then  can  be  converted  to  parametric 
coordinates  (by  ITEM="CORPAR"  there)  and  stored  for  reading  into  the 
grid  code  as  the  boundary  segments  (via  ITEM="FILE",  etc.  in  the  grid 
code) . 

The  elliptic  generation  system  is  that  with  the  parametric  coordi¬ 
nates  as  the  dependent  variables,  taking  full  account  of  the  curvature 
of  the  surface.  All  features  of  the  code,  e.g.,  block  structure,  bound¬ 
ary  orthogonality,  etc.,  apply  in  this  mode  as  well.  After  generation 
is  complete,  the  parametric  coordinates  are  converted  back  to  Cartesian 
coordinates  thus  providing  the  2D  grid  on  the  curved  surface.  On  the 
output  for  plotting,  the  curved  surface  is  automatically  output  as  block 
#1  ,  and  all  of  the  actual  block  numbers  of  the  grid  are  incremented  by 
one  on  this  output. 

25.  Continuity  Check 

It  is  possible  in  rare  instances  for  cuts  to  be  set  up  in  such  a 
way  that  a  point  on  a  block  interface  is  imaged  to  a  field  point  in  one 
block,  while  an  adjacent  point  on  the  interface  is  imaged  to  a  non-field 
point  in  another  block.  Such  a  situation  can  produce  a  local  loss  of 
derivative  continuity  and  can  often  be  avoided  by  reversing  the  designa¬ 
tion  of  the  object  a'.l  image  blocks  at  the  interface.  This  situation 
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can  be  checked  for  by  including  CONTIN="YES"  on  some  Input  statement. 
Since  this  checking  can  require  a  large  number  of  accesses  to  the  disk 
storage,  it  can  be  expensive  and  therefore  the  default  is  not  to  check. 

Jb .  Zero-Curvature  Extrapolation  at  Boundary 

Neumann  boundary  conditions  based  on  zero  curvature  of  lines 
intersecting  the  boundary  Instead  of  orthogonality  can  also  be  applied: 


The  usag"  is  the  same  as  described  for  ITEM=" NEUMANN" ,  but  with 
rrKM="EX'rrtAP"  .  The  "NEUMAN1",  "NEUMAN 2"  ,  and  "NEUMAN3"  statements  can 
also  To  1  low  an  "EXTRAP"  statement  to  restrict  the  movement. 
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D.  NAMELIST/OUTPUT/ 


The  printed  output  and  file  storage  for  plotting  is  controlled  by 
one  or  more  successive  reads  of  a  NAMELIST  called  OUTPUT,  with  the  type 

of  output  being  specified  by  ITEM=" _ ”  on  each  such  input  statement. 

This  portion  of  the  input  is  terminated  by  an  input  statement  with 
ITEM="END'' . 

As  in  the  NAMELIST/ INPUT/ ,  numbered  points  can  be  used  as  single 
entries  in  START  and  END  (cf.  Section  I-C23). 

On  all  the  OUTPUT  operations,  the  inclusion  of  PART="STDES”  causes 
all  sides  of  a  block  to  be  output,  and  "EDGES”  produces  all  edges. 

1 .  Printout 

With  ITEM=" INITIAL" ,  the  initial  algebraic  grid  will  be  printed, 
while  "PRINT"  prints  the  final  grid.  In  each  of  these  cases,  the  sec¬ 
tions  to  be  printed  are  identified  by  BLOCK,  START,  and  END.  Any  numbei' 
of  these  input  statements  can  be  used  to  print  several  portions  of  the 
field.  The  entire  field  will  be  printed  if  ALL="YES"  is  included  instead 
of  BLOCK,  START,  and  END.  The  order  in  which  the  points  are  printed  is 
controlled  by  ORDER,  and  the  order  in  which  the  Cartesian  components 
are  printed  for  each  point  is  controlled  by  BORDER,  in  the  same  manner 
that  has  been  described  for  reading  the  boundary  points  (Section  1-C3). 
Again  zero  entries  here  cause  corresponding  omissions  from  the  printout. 
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Plot  File 


All  or  sections  of  all  or  certain  blocks  can  be  written  on  file  8 
for  plotting  in  the  same  manner  with  ITEM='' PLOT" .  The  points  are  writ¬ 
ten  one  point  (three  Cartesian  coordinates)  to  a  line  in  a  format  set  by 
FURM="UNFORM’'  for  unformatted,  "E"  for  3E20.8,  or  "LIST"  for  list-di¬ 
rected.  In  contrast  to  the  print-out,  all  three  coordinates  are  written 
on  the  file  in  any  case. 

3 .  Error  Norm 

The  printing  of  the  error  norm  at  each  iteration  is  activated  by 
an  input  statement  with  ITEM»"ERROR" .  If  3LKERR»"YES"  is  included,  then 
the  error  norms  in  each  block  will  be  printed.  Otherwise,  only  a  single 
norm  over  all  the  blocks  is  printed.  If  the  ITEM=" ERROR"  input  state¬ 
ment  is  used,  it  must  be  the  first  of  the  namelist  OUTPUT  statements. 
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E.  ERROR  MESSAGES 


ALL  POINTS  ON  SECTION  ARE  FIXED 

This  warning  occurs  when  all  points  on  a  NEUMANN,  EXTRAF ,  or  ORTHOG 
section  are  FiX  points.  Since  FIX  points  are  not  re-classified,  the 
NEUMANN,  EXTRAP,  or  ORTHOG  designation  here  is  totally  ineffective. 

BAD  SEGMENT  LIST  ON  FILE 


This  occurs  when  all  segments  for  a  block  are  being  read  fran  a 
file  at  once  (Section  I-C3).  but  the  number  of  segments  recorded  on  the 
file  is  0.  Check  to  see  that  the  file  was  generated  by  the  boundary 
code  on  ITEM="COMBINE"  with  C0NTENT=" YES"  (Section  I-E21  of  Vol.  FI). 


BAD  VALUE  FOR  — - 

This  indicates  that  an  unrecognizable  value  has  been  given  for  the 
quantity  indicated,  perhaps  simply  because  of  misspelling.  The  accept¬ 
able  values  for  all  such  quantities  are  listed  below; 


NS 

1.2 

KSTORE 

"FILE",  "CORE" 

CLASS 

"FIX",  "FIELD",  "OUT" 

DFIRST 

"CENTRAL" ,  "ONESIDE"  , 

"VARIABLE" 

DCROSS 

"CENTRAL" ,  "ONESIDE" 

CHECK 

"YES",  "NO",  "PLOT" 

RESTART 

"INITIAL",  "ITERATE", 

"NO" 

PROTYP 

"FACES",  "EDGES",  "CORNERS" 

CONFYP 

"RADIUS",  "INITIAL", 

"ORTHO" ,  "0RTH02" 

INTERP 

"YES" ,  "NO" 

811 


TRIAD 


YES" 


"NO" 


IPRINT 

INTORT 

ITMAX 

COMUPI 

ACC  PAR 

TOL 

SPAVAL 

WEIGHT 

REWIND 

ALL 

OUTER 

NEW 

SMOCON 

FUN 

SEGMENT 

DIRECT 

NEDX 

PROFOR 

BLEND 

ORDER 

RORDER 

PRODIR 

SMODIR 

SMOCOM 

VALOUT 


"YES",  "NO" 

"YES",  "NO" 

Non-negative  Integer 
Non-negative  integer 

"OPTIMUM"  or  Real  number  between  0  and  2 
Non-negative  real  number 
Non-negative  real  number 
"YES",  "NO" 

"YES",  "NO" 

"YES" ,  "NO" 

"YES",  "NO" 

"YES",  "NO" 

"YES",  "NO" 

"POINTS",  "CONTROL" 

Positive  integer 

II,  12,  13,  "UP",  "DOWN" 

1  ,  2 

"LAGRANGE",  "HERMITE" ,  "HERMITE1",  "HERMITE2" 
"LINEAR",  "ARC" 

1,  2,  3 
1  ,  2,  3 

1,  2,  3,  "NONE" 

1  .  2.  3 
1.  2,  3 

Positive  integer 


85 


MATH  :  "SUM",  "SUM-1",  "DIF",  "DIF-1",  "PRODUCT" 

ITEM  (On  OUTPUT):  "INITIAL",  "PRINT",  "PLOT",  "ERROR",  "END" 


CON FAC 

: 

positive  real 

PART 

"SIDES",  "EDGES",  "ALL" 

BLKERR 

; 

"YES",  "NO" 

BLOCK  NUMBER  EXCEEDS  TOTAL  USED 

The  value  gives  for  BLOCK  is  greater  than  the  total  number  of 
blocks  that  have  been  set  up.  A  block  cannot  be  addressed  until  it  is 
set  up  by  an  ITEM="BLOCK"  statement.  Blocks  are  numbered  consecutively 
as  they  are  set  up  (Section  I-C2). 

<BLOCK  &  POINT>  ARE  REQUIRED 

This  occurs  when  a  point  is  being  classified  FIELD,  IMAGE,  or  AVER¬ 
AGE,  but  either  the  block  or  the  point  is  not  designated.  In  the  case 
of  an  IMAGE  point  this  indicated  that  no  object  point  was  designated. 

BOUNDARY  VALUES  MUST  BE  SPECIFIED 

This  occurs  when  the  code  is  unable  to  set  all  the  boundary  values 
on  the  sides  of  a  section  for  interpolation,  either  through  reading  the 
values  or  through  interpolation  on  the  sides.  The  minimum  required  is 
the  specification  of  values  at  all  the  corner  points. 
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COORDINATE  SYSTEM  IS  NOT  RIGHT-HANDED 


This  indicates  that  the  unit  vectors  in  the  three  curvilinear  coor¬ 
dinate  directions  do  not  form  a  right-handed  system  (Section  I-C19). 
The  probable  cause  is  either  a  twisted  grid  because  the  points  on  some 
boundary  segment  have  been  input  in  the  wrong  direction  or  an  overlapped 
grid  resulting  from  an  overlap  of  a  boundary  segment  in  the  transfinite 
interpolation.  The  former  is  a  user  error  and  must  be  corrected.  The 
latter  is  not  a  user  error  and  may  be  resolved  by  the  elliptic  grid  gen¬ 
erator.  (A  later  check  is  made  after  the  elliptic  grid  is  generated.) 
The  option  CONTYP=" INITIAL"  for  the  control  functions  cannot  be  used 
with  an  overlapped  algebraic  grid,  however.  In  any  case  the  algebraic 
grid  should  be  plotted  and  examined  at  the  location  indicated.  A  non¬ 
right-handed  final  grid  should  be  plotted  and  examined  at  the  location 
indicated.  A  non-right-handed  final  grid  will  not  be  usable  in  a  PDE 
solver.  The  code  can  be  made  to  stop  at  this  message  by  including 
CHECK="YES’' . 

CUTS  SHOULD  NORMALLY  BE  LAST 

The  ttem="CUT"  statement  causes  the  Cartesian  coordinates  at  corre¬ 
sponding  points  on  pairs  of  interfaces  to  be  kept  equal.  In  order  for 
this  correspondence  to  be  set  up  properly,  it  is  normally  necessary  that 
all  points  on  the  cut  section  that  are  to  be  classified  FIX,  ORTHO, 
NEUMANN,  EXTRAP,  or  OUT  receive  that  classification  before  the  cut  is 
set  up  (Section  I-C7).  Therefore  all  the  CUT  statements  should  be 
grouped  at  the  very  end  of  the  INPUT  statements.  (CUT  statements  within 
a  single  block  can  be  put  at  the  end  of  the  statements  for  that  block.) 


<DIMR>  NOT  SET  FOR  CORE  STORAGE 

<DIMR>  SHOULD  BE  SET  TO  1  FOR  FILE  STORAGE 

DIMR  i3  the  total  number  of  points  allowed  in  all  blocks  when  all 
blocks  are  kept  in  core  (Section  I-C21).  Since  this  parameter  is 
naturally  set  to  1  when  blocks  are  kept  on  separate  files  instead  of  in 
core,  the  code  checks  to  see  if  the  value  has  been  changed  from  1  when 
core  storage  is  called  for.  Similarly,  In  order  not  to  waste  storage,  a 
check  is  made  to  see  that  DIMR  is  set  to  1  when  file  storage  is  called 
for , 

<DIMS>  MUST  NOT  BE  LESS  THAN  <DIMC> 

This  occurs  in  the  curved  surface  mode  (Section  I-C24)  when  the  maxi¬ 
mum  size  of  the  surface  allowed,  DIMC,  exceeds  the  dimension  dims.  in¬ 
crease  DIMS  globally  unless  DIMC  is  unnecessarily  large. 

15*DIMT  MUST  NOT  BE  LESS  THAN  12»DIML*»2 

This  requirement  occurs  because  of  some  equivalence  used  to  con¬ 
serve  storage.  The  solution  is  normally  to  increase  DIMT  in  a  global 
edit,  unless  DIML  is  unnecessarily  large. 

<DIRECT>  IS  REQUIRED 

This  occurs  when  the  indices  for  a  numbered  point  are  being  set 
(Section  I-C23).  but  no  direction  on  the  grid  is  given. 

<END>  IS  OUT  OF  BLOCK 

Analogous  to  <START>  IS  OUT  OF  BLOCK. 
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<END>  POINT  NOT  SET 


Analogous  to  <START>  POINT  NOT  SET. 

E/TRAP  BOUNDARY  DOES  NOT  CONVERGE 

'.oe  t.ho  oorresponfJing  NEUMANN  statement. 

<FIELD>  POINT  ---  ADJACENT  TO  AN  <OUT>  POINT 

This  indicates  that  one  of  the  26  points  (8  in  2D)  adjacent 
to  a  FIELD  point  is  an  OUT  point.  The  probable  cause  is  that  the  FIELD 
point  is  on  a  block  boundary  that  has  not  been  made  a  cut  or  a  FIX, 
NEUMANN,  EXTRAP,  REFLECT,  or  ORTHOG  section.  Since  all  points  on  the 
block  are  defaulted  to  FIELD,  it  is  necessary  to  make  some  classifica- 
trm  of  ail  boundary  points. 

<FIELD>  POINT  —  IS  ADJACENT  TO  A  POINT  WITH  NO  VALUE 

This  indicates  that  one  of  the  26  points  (8  in  2D)  adjacent  to  the 
FIELD  point  has  no  assigned  value  for  its  Cartesian  coordinates.  The 
probable  cause  is  a  failure  to  read  in  some  boundary  points. 

<FILE>  IS  REQUIRED 

This  occurs  when  no  file  is  designated  for  the  final  grid  (Section 
I-C17).  If  no  such  storage  is  intended,  the  ITEM«"STORE"  statement 
should  not  be  used. 
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FORBIDDEN  FILE  NUMBER 

File  numbers  1-10  cannot  be  used  to  read  points  or  to  store  the 

grid. 

<IEND>  IS  OUT  OF  BLOCK 

Analogous  to  <START>  IS  OUT  OF  BLOCK. 

<IEND>  POINT  NOT  SET 

ANALOGOUS  TO  <START>  POINT  NOT  SET. 

IMAGE  &  OBJECT  EDGES  IN  — -  DIRECTION  DO  NOT  CORRESPOND 

This  occurs  when  the  image  (ISTART,  lEND)  and  object  (START, END) 
section  of  a  cut,  (Section  I-C7)  are  not  the  same  size.  This  is  influ¬ 
enced  by  ORDER  as  well,  i.e.,  IABS(IEND(I)  -  ISTART(I))  must  equal 
IABS(END(ORDER(I))  -  START (ORDER (I )) )  for  1  =  1, 2, 3. 

<IMAGE>  POINT  —  IS  ADJACENT  TO  A  POINT  WITH  NO  VALUE 

See  the  corresponding  <FIELD>  statement. 

INITIAL  GRID  POINT  MUST  COME  FIRST  IN  OUTPUT  NAMELIST 


When  a  print  of  the  Initial  grid  is  called  for,  (Section  T-D1)  the 
ITEM»" INITIAL"  statements  must  precede  all  of  the  "PRINT"  and  "PLOT" 
statements. 
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<TPOINT>  iS  REQUIRED 


This  occurs  when  an  IMAGE  point  is  being  set,  but  no  image  point  Is 
designateh. 

<I.START>  IS  OUT  OF  BLOCK 

Analogous  to  <START>  IS  OUT  OF  BLOCK. 

<ISTART^  POINT  NOT  SET 

Analogous  to  <START>  POINT  NOT  SET. 

<ITERMS>  IS  REQUIRED 

This  occurs  when  an  integer  value  is  being  set  by  a  calculation 
(Section  1-C1 ) . 

JACOBIAN  IS  ZERU 

This  indicates  that  a  zero  cell  volume  has  been  found  (Section 
I-C19).  The  probable  cause  is  that  all  points  in  a  region  have  the  same 
value  through  an  input  error. 

<KSTORE>  CANNOT  APPEAR  AFTER  THE  FIRST  INPUT  STATEMENT 

Since  KSTORE  sets  the  mode  of  block  storage  (Section  I-C21),  i.e., 
all  in  core  or  separately  on  fields,  it  must  be  given  on  the  first  input 
statement,  which  is  most  appropriately  the  ITEM-"INITIAL"  statement. 
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LOCATION  IS  OUT  OF  BLOCK 


This  occurs  when  the  indices  of  a  numbered  point  are  being  set 
(Section  I-C23),  but  the  indices  given  In  LOCAT  are  out  of  the  block. 
NAMELIST  ITEM  NOT  RECOGNIZABLE 

This  occurs  when  a  value  given  for  ITEM  is  not  one  of  the  opera¬ 
tions  provided.  Check  for  misspelling. 

NEGATIVE  OR  ZERO  RESULT 

This  indicated  that  a  calculated  integer  value  to  be  stored  (Sec¬ 
tion  I-C1  )  is  not  positive. 

NEUMANN  BOUNDARY  ARRAY  TOO  SMALL 

This  indicates  that  there  are  too  many  NEUMANN  or  EXTkAP  points  in 
a  block  for  the  dimensions  set  (Section  I-C9,  C26) .  Increase  the  dimen¬ 
sion  parameter  globally.  The  suggested  value  is  adequate  only  for  the 
instance  noted. 

NEUMANN  BOUNDARY  DOES  NOT  CONVERGE 

This  indicates  that  the  Newton  iteration  for  a  NEUMANN  point  has 
not  converged  (Section  I-C9,  C26).  The  probable  cause  is  the  restric¬ 
tion  preventing  such  points  from  leaving  the  section,  i.e.,  the  points 
lock  at  the  section  edge,  or  a  storage  configuration.  The  grid  should 
be  plotted  and  examined  in  the  area  indicated. 
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':NEUMANN>  point  —  IS  ADJACENT  TO  AN  <OUT>  POINT 

See  the  corresponding  <ORTHOG>  statement. 

<NEUMANN>  SECTION  CANNOT  BE  A  — 

Thio  ocouro  when  a  NEUMANN  or  EXTRAP  section  has  been  specified  by 
START  and  END  to  be  volume  in  3D  or  a  surface  in  2D.  One  pair  of  corre¬ 
sponding  entries  in  START  and  END  must  be  equal  in  3D,  and  two  pairs 
must  be  equal  in  2D,  so  that  the  section  is  a  surface  in  3D  and  a  line 
in  2D  (Section  I-C9,  C26). 

NO  ORTHOG  CONVERGENCE 


This  indicates  that  convergence  was  not  obtained  in  the  Newton 
iteration  for  the  spacing  distribution  with  ORTHOG  points  in  subroutine 
CONSETE  (Section  I-C10).  This  could  be  the  result  a  strange  configura¬ 
tion,  perhaps  one  in  error  through  bad  boundary  data. 

NO  RAD  CONVERGENCE 

This  occurs  when  the  Newton  iteration  for  the  radius  of  curvature 
for  use  with  the  CONTYP="RADIUS"  control  function  option  fails  to  con¬ 
verge  (Section  I-C15).  The  probable  cause  is  a  storage  configuration, 
perhaps  through  input  error.  The  algebraic  grid  should  be  plotted  and 
examined. 
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NO  SOURCE  FOR  SURFACE 


This  occurs  in  the  curved  surface  mode  (Section  I-C2^i)  when  no 
points  are  given  for  the  surface,  either  by  indicating  a  read  from  a 
file  by  including  FILE  or  directly  from  the  NAMELIST  by  including  VAL¬ 
UES. 

NO  STORED  VALUE  FOR  — 

This  occurs  when  a  negative  integer  is  given  for  a  component  of 
START,  END,  ISTART,  lEND,  or  SIZE  and  no  value  has  been  stored,  by  a 
prior  ITEM="SETNUM"  (Section  I-C1)  In  the  location  indicated  by  the  mag¬ 
nitude  of  the  negative  value. 

NO  STORED  VALUE  IN  LOCATION 

This  occurs  when  a  value  is  being  calculated  to  be  stored  (Section 
I-C1 )  and  one  of  the  terms  of  the  calculation  indicated  as  by  previously 
stored  is,  in  fact,  not  stored. 

<NS>  CANNOT  BE  0 

NS  is  the  number  of  surrounding  layers.  Since  the  code  must  have 
one  surrounding  layer,  <NS>  must  be  1  or  2.  Use  2  only  if  it  is  desired 
to  have  two  surrounding  layers  output  for  use  in  a  PDE  codi'.  The  cor¬ 
rect  way  to  suppress  the  output  of  the  surrounding  layer  is  to  use 
0UTER="N0"  on  the  input,  not  to  set  NS»0. 


OBJECT  POINT  IS  IMAGE  POINT 

This  occurs  when  the  object  of  an  image  point  is  itself  an  image 
point.  If  the  image  point  in  question  is  actually  needed,  the  code  will 
stop.  The  probable  cause  is  an  improper  cut  setup  if  the  code  stops. 
This  is  not  a  problem  if  the  code  continues. 

OBJECT  POINT  WAC  OUT  POINT 

This  occurs  when  the  object  of  an  image  point  was  found  to  be  an 
OUT  point.  In  this  case  the  image  point  is  changed  to  an  OUT  point 
also.  If  the  image  point  was  needed,  the  code  stops.  Otherwise  this  is 
not  a  pro'  lem.  If  the  code  does  stop,  the  probable  cause  is  a  bad  cut 
setup. 

<0P0INT>  IS  REQUIRED 

This  occurs  when  the  indices  for  a  numbered  point  are  being  set 
relational Jy  from  another  point  (Section  I-C23),  but  the  other  point  is 
not  given. 

<ORDER>  MUST  CONTAIN  ONLY  1  &  2 

This  occurs  in  the  curved  surface  mode  (Section  I-C2ii)  when  a  value 
3  is  given  for  ORDER(I)  or  0RDER(2).  Since  the  surface  has  only  two  di¬ 
mensions,  5nly  1  and  2  are  acceptable  values  for  ORDER  here.  ORDER(I) 
is  the  direction  on  the  surface  that  is  read  in  the  inner  loop. 
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<ORTHOG>  POINT  —  IS  ADJACENT  TO  AN  <QUT>  POINT 

This  indicates  that  one  of  the  necessary  points  adjacent  to  the 
ORTHOG  point  is  an  OUT  point.  The  probable  cause  is  that  the  ORTHOG 
point  is  on  a  block  edge  that  is  not  part  of  a  cut  interface. 

<QRTHOG>  SECTION  CANNOT  BE  A  — 

See  corresponding  <MEUMANN>  statement. 

ORTHOGONAL  BOUNDARY  ARRAY  TOO  SMALL 

Analogous  to  < NEUMANN  BOUNDARY  ARRAY  TOO  SMALL. 

OTHER  POINT  HAS  NOT  BEEN  SET 

This  occurs  when  the  indices  of  a  numbered  point  is  being  set  re- 
lationally  from  another  numbered  point  (Section  I-C23),  but  no  indices 
have  been  set  for  the  other  numbered  point. 

<P0INT>  IS  REQUIRED 


This  occurs  when  the  indices  of  a  numbered  point  are  being  set 
(Section  I-C23),  but  the  point  number  is  not  given. 

<POINTS>  IS  REQUIRED 

This  occurs  when  the  indices  of  a  numbered  point  are  being  set  re- 
lationally  from  another  point  (Section  I-C23),  but  no  increment  is  given 
for  the  indices,  either  directly  by  including  POINTS  or  indirectly  by 
including  SEGMENT. 
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POINT  NUMBER  EXCEEDS  INCREMENT 

This  occurs  when  a  new  group  of  numbered  points  is  created  by  in¬ 
crementing  ^-11  existing  point  numbers  in  a  block  (Section  I-C23)  and  the 
increment  given  is  not  adequate  to  place  the  new  point  numbers  beyond 
the  range  of  the  present  numbers.  Use  a  larger  increment. 

POSSIBLE  LOSS  OF  CONTINUITY 

See  Section  I-C25. 

<REFLECT>  POINT  — -  IS  ADJACENT  TO  AN  <QUT>  POINT 

See  the  corresponding  <ORTHOG>  statement. 

<REFLECT>  SECTION  CANNOT  BE  A  — 

See  corresponding  <NEUMANN>  statement. 

SEGMENT  DOES  NOT  MATCH  <START,END> 

This  occurs  when  points  on  a  segment  are  being  placed  (Section 
I-C23)  after  all  segments  for  a  block  have  been  read  from  a  file  at  one 
time,  but  the  segment  does  not  find  the  placement  indicated  by  START  and 
END, 

< SEGMENT >  IS  REQUIRED 

This  occurs  when  points  on  a  segment  are  being  placed  (Section 
I-C23)  after  all  segments  for  a  block  have  been  read  from  a  file  at  one 
time,  but  the  segment  number  is  not  given. 
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SEGMENT  NOT  ON  FILE 


This  occurs  when  a  segment  is  referenced  that  has  not  been  read  in 
(Section  I-C23). 

SEGMENT  NUMBER  TOO  HIGH 

The  segment  number  exceeds  the  total  number  of  segments  allowed 
(Section  I-C23).  The  dimension  parameter  DSEG  should  be  increased  in  a 
global  edit.  The  suggested  value  is  adequate  only  for  the  present  seg¬ 
ment  number. 

<SI2E>  IS  REQUIRED 

Three  (two  in  2D)  integers  must  be  given  to  define  the  block  size 
when  the  indirect  addressing  mode  is  not  used  (Section  I-C2). 

<SIZE>  POINT  NOT  SET 

A  single  integer  has  been  given  for  SIZE  as  a  point  number  in  the 
indirect  addressing  mode  (Section  I-C2),  but  the  indices  for  that  point 
have  not  been  set  by  a  prior  ITEM*"POINT"  statement  (Section  I-C23). 

<SPAVAL>  IS  REQUIRED 


This  occurs  when  spacing  is  being  set  on  a  section  for  Hermite  in¬ 
terpolation,  or  for  ORTHOG  points,  but  no  value  is  given  for  the  spac¬ 
ing. 
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<SPLINE>  SURFACE  CANNOT  BE  A  - 

This  occurs  when  the  spline  section  defined  by  ISTART  and  lEND  for 
a  NEUMANN  or  EXTRAP  section  is  a  line  in  3D  or  a  point  in  2D  (Section 
I-C9,  C26).  The  spline  section  must  be  a  surface  in  3D  and  a  line  in  2D, 
i.e.,  only  one  pair  of  corresponding  entries  in  ISTART  and  lEND  must  be 
equal  in  3D  and  only  two  pairs  in  2D.  One  probable  cause  is  the  omis¬ 
sion  of  ISTART  and  lEND  when  the  NEUMANN  or  EXTRAP  section  is  a  line  in 
3D  or  a  point  in  2D. 

SPLINE  SURFACE  SMALLER  THAN  NEUMANN  SECTION 

This  occurs  when  the  surface  indicated  by  ISTART  and  lEND  to  be 
splined  is  smaller  than  the  NEUMANN  or  EXTRAP  section  (Section  I~C9, 
C26).  ISTART  and  lEND  can  simply  be  omitted  if  the  spline  section  is  to 
coincide  with  the  NEUMANN  or  EXTRAP  section. 

<START  &  END>  ARE  REQUIRED 

This  occurs  when  START  and  END  have  not  been  set  either  directly 
or  indirectly  (Section  I-C23). 

<START>  IS  OUT  OF  BLOCK 

A  value  for  START  that  is  out  of  the  block  has  been  given  or  ob¬ 
tained  from  storage. 
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<START>  POINT  NOT  SET 


This  occurs  in  the  indirect  addressing  mode  (Section  I-C23)  when  a 
point  number  (a  single  positive  integer)  is  given  for  START  (instead  of 
three  indices)  the  indices  corresponding  to  the  numbered  point  have  not 
been  set  by  a  prior  ITEM-"POINT"  statement. 

SUB-BLOCKS  DO  NOT  COVER  BLOCK 

This  occurs  when  the  sub-blocks  defined  do  not  completely  cover  the 
block,  as  must  be  the  case  (Section  I-C16).  Define  some  additional  sub¬ 
blocks. 

SURFACE  IS  TOO  LARGE 

This  occurs  in  the  curved  surface  mode  (Section  I-CBM)  when  the 
surface  exceeds  the  dimensions  provided.  Increase  DIMC  globally. 

SURFACE  SIZE  HAS  NOT  BEEN  SET 

This  occurs  in  the  curved  surface  mode  (Section  I-C2^)  when  the 
size  of  the  surface  is  not  given  by  including  two  integers  for  SIZE. 

TOO  MANY  — 

The  indicated  dimension  has  been  exceeded  (Section  1-A5).  The  dimen¬ 
sion  parameter  indicated  should  be  changed  in  a  global  edit .  The  value 
indicated  is  the  value  needed  in  this  particular  instance,  and  it  is  pos¬ 
sible  that  a  later  demand  may  be  found  that  is  greater.  This  message  in 
regard  to  DMRB  refers  to  the  total  number  of  points  on  all  six  (four  in 
2D)  sides  of  a  block. 
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TOO  MANY  POINTS  IN  BLOCK 


This  indicates  that  a  point  number  in  the  indirect  addressing  mode 
(Section  I-C23)  exceeds  the  maximum  number  of  numbered  points  allowed. 
Increase  DPNT  in  a  global  edit.  The  suggested  value  s  adequate  only 
for  this  point  number. 

TOO  MANY  POINTS  INPUT  AT  ONE  TIME 


This  occurs  when  points  on  a  segment  are  being  input  directly  from 
the  NAMELIST  (Section  I-C3)  and  the  dimensions  of  the  holding  array  are 
exceeded.  Increase  DIMP  globally. 

TOO  MANY  POINTS  ON  INPUT  FILE 

This  occurs  when  all  segments  for  a  block  are  read  from  a  file  at 
one  time  (Section  I-C23)  and  the  total  number  of  points  on  the  file  ex¬ 
ceeds  the  maximum  allowed  in  the  holding  array.  The  dimension  parameter 
DIMD  should  be  increased  in  a  global  edit.  The  suggested  value  is  ade¬ 
quate  only  for  this  file. 

TOO  MANY  POINTS  ON  FILE 

This  occurs  when  all  segments  for  a  block  are  read  from  a  file  at 
one  time  (Section  I-C23)  and  the  total  number  of  points  on  the  file  ex¬ 
ceeds  the  maximum  allowed  for  a  block.  The  dimension  parameter  DIMT 
should  be  increased  in  a  global  edit.  The  suggested  value  is  adequate 
only  for  this  block. 
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TOO  MANY  TERMS 


This  occurs  when  a  value  la  being  calculated  to  be  stored  (Section 
I-C1),  and  the  number  of  terms  in  the  calculation  exceeds  the  maximum 
allowed.  Increase  the  dimension  parameter  NVALMX  in  a  global  edit.  The 
suggested  value  is  adequate  only  for  the  present  instance. 

TOO  MANY  VALUES  STORED 

This  occurs  when  the  storage  location  given  for  a  calculated  value 
exceeds  the  number  of  storage  locations  allowed.  Increase  the  dimension 
parameter  OVAL  globally.  The  suggested  value  is  adequate  only  for  the 
present  instance. 


<VAL0UT>  IS  REQUIRED 

This  occurs  when  a  calculated  value  is  being  stored  (Section  I-C1), 
but  no  storage  location  is  given. 

<VALUES>  IS  REQUIRED 

This  occurs  when  points  are  being  read  from  the  NAMELIST  (Section 
I-C3),  but  no  points  are  given. 

ZERO  — 

This  Indicates  that  a  zero  is  occurring  as  a  division.  The  prob¬ 
able  reason  is  that  all  points  in  a  calculation  region  have  the  same 
value.  Plot  the  algebraic  grid  for  the  block  involved  to  check  for  bad 
points. 
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PART  II  -  CODE  OPERATION 

A.  INTRODUCTION 

There  are  a  number  of  coding  features  that  are  used  throughout  the 
code,  and  these  are  discussed  first  rather  than  in  each  occurrence  in  the 
code. 

1 .  Basic  Notation 

As  has  been  noted  in  Section  I-A3,  the  three  curvilinear  coordi- 
nates,  ^  ,5  ,5^,  are  usually  denoted  in  the  code  by  the  integers 
C1,C2,C3,  or  by  C( 1 ) ,C (2) ,C (3) .  Another  notation  used  is  IC1,IC2,IC3, 
or  IC (1 ) , IC (2 ) , (IC3)  particularly  in  reference  to  an  image  point.  The 
integer  Cl  is  usually  used  for  the  index  i  when  it  identifies  a  curvi¬ 
linear  coordinate  and  the  integer  RI  is  used  for  i  in  reference  to  a 
Cartesian  component  x^.  The  block  number  is  usually  the  integer  B,  or 
NBIiK  in  the  subroutines,  is  IB  when  an  image  block  is  referenced. 

2.  Adjustable  Dimension  Parameters 

The  fundamental  dimension  parameters  (all  integers)  are  the  follow¬ 
ing; 

NS  -  number  of  surrouding  layers  for  output.  (0,1  or  2) 

BASE  -  base  number  to  which  SSD  file  numbers  are  added.  (Block  B  goes  on 
file  BASE+B) 

DIMT  -  maxium  number  of  points  allowed  in  a  block,  (including  the  sur 
rounding  layers) 

DIMB  -  maximum  number  of  blocks  allowed. 

DMRB  -  maximum  number  of  points  allowed  on  an  entire  block  boundary, 
(all  six  sides,  four  sides  in  2D). 
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DIMS  -  maximum  number  of  points  allowed  on  a  block  side. 

DIML  -  maximum  number  of  points  allowed  on  a  block  edge. 

DIMI  -  maximum  number  of  Image  points  allowed  in  a  block. 

DSUB  -  maximum  number  of  sub-blocks  allowed  in  a  block. 

DNEU  -  maximum  number  of  Neumann  boundary  sections  allowed  in  a  block. 

DORT  -  maximum  number  of  orthogonal  boundary  sections  allowed  in  a 

block. 

DREF  -  maximum  number  of  reflective  boundary  sections  allowed  in  a 

block. 

DMNT  -  maximum  number  of  Neumann  boundary  points  allowed  in  a  block, 

DMOT  -  maximum  number  of  orthogonal  boundary  points  allowed  in  a  block. 

DIMR  -  maximum  total  number  of  points  allowed  in  the  entire  field  (all 
blocks)  when  all  blocks  are  kept  in  core. 

DIMN  -  maximum  total  number  of  Neumann  boundary  points  allowed  in  the 
entire  field  (all  blocks)  when  all  blocks  are  kept  in  core. 

DIMO  -  maximum  total  number  of  orthogonal  boundary  points  allowed  in  the 
entire  field  (all  blocks)  when  all  blocks  are  kept  in  core. 

DIMG  -  maximum  number  of  image  points  allowed  in  the  entire  field  (all 
blocks)  when  all  blocks  are  kept  in  core. 

DIMP  -  maximum  number  of  points  that  can  be  included  on  one  ITEM="LIST" 
input  statement. 

DIMD  -  maximum  number  of  points  that  can  be  read  from  an  entire  file 
read  at  one  time. 

DPNT  -  maximum  number  of  numbered  points  allowed  in  a  block. 

DSEG  -  maximum  number  of  numbered  segments  allowed  on  an  entire  file 
read  at  one  time. 

DIMC  -  maximum  number  of  points  allowed  defining  a  curved  surface  on 
which  a  2D  grid  is  to  be  generated. 

NVALMX  -  maximum  number  of  terms  that  can  be  included  in  calculated  in¬ 
put  parameters. 

DVAL  -  maximum  number  of  calculated  input  parameters  that  can  be 
stored. 
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All  of  these  parameters  occur  in  several  routines  and  hence  must  be 
changed  by  global  edits.  The  four  parameters,  DIMR,  DIMN,  DIMO,  and 
DIMG  are  relevant  only  when  all  blocks  are  kept  in  core.  When  file  stor¬ 
age  is  used  for  the  individual  blocks,  all  four  of  these  parameters 
should  be  set  to  unity. 

The  code  computes  the  size  actually  needed  for  each  of  the  larger 
arrays  and  prints  a  comparison  of  the  storage  actually  used  and  that 
allotted  by  the  dimension  statements. 

3.  Field  Arrays 

The  nine  basic  single-block  field  arrays  comprise  COMMON/ FI ELD / . 
The  arrays  with  values  for  each  points  in  a  block  are  the  following; 


R(3,DIMT)  -  Cartesian  coordinates  of  grid  points.  Xj^,  i  =  1,2,3 
P(3,DIMT)  -  Control  functions.  P^,  i-1,2,3 

CPACE(3iDIMT)  -  Arc  length  spacing  for  control  functions.  Sj^,  i-1,2,3 

RAD(3,DIMT)  -  Radius  of  curvature  for  control  functions,  p^,  i-1,2,3 

IMAGE(0: 3,DIMT)  -  Image  point:  block  (first  subscript  0)  and  curvi¬ 
linear  coordinates  therein  (5^,  i-1,2,3  for  first 

subscript) 

ACC(DIMT)  -  Optimum  acceleration  parameters  for  SOR  iteration. 

TYPE(DIMT)  -  Point  classification. 


In  addition  there  are  two  arrays  with  values  for  each  point  on  certain 
sections  of  the  block  boundary; 


RR(3,0: 3,DMNT)  -  Cartesian  coordinates  (second  subscript  0),  first  de¬ 
rivatives  on  boundary  (second  subscript  1  and  2),  and 
cross  derivative  on  boundary  (second  subscript  3)  for 
Neumann  boundary  points. 
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R0(3,0: 3iDM0T)  -  Cartesian  coordinates  on  a  boundary  section  involved  in 
iterative  adjustment  of  control  functions  for  ortho¬ 
gonal  boundary  points. 

These  nine  field  arrays  are  passed  to  most  subroutines  as  argu¬ 
ments,  in  which  case  R,  P,  SPACE,  and  RAD  appear  in  the  subroutines  in 
the  following  form: 

R(3,SSDB,IS:DIM1 ,IS:DIM2,IS:DIM3) 

where  SSDB=1 ,  IS=1-NS,  and  the  integers  DIM1 ,DIM2,DIM3  are  received  as 
arguments  that  have  been  given  the  values  CMAX(1, block)+NS  for  i=1,2,3, 
respectively.  Similarly,  IMAGE  appears  as 

IMAGE(0: 3,SSDB ,IS:DIM1 ,IS: DIM2 , IS:DIM3 ) 
and  ACC  and  TYPE  appear  as 

ACC(SSDB,IS:DIM1 ,IS:DIM2,IS:DIM3) 

The  arrays  RR  and  RO  appear  as 

RR(3,0: 3,DMRR,SSDB) 

R0(3,0: 3,DMR0,SSDB) 

where  the  integers  DMRR  and  DMRO  are  received  as  arguments  with  the  val¬ 
ues  DMRR(block)  and  DMROCblock)  from  integer  arrays  in  the  calling  rou¬ 
tine,  (In  all  nine  of  these  arrays,  the  dimension  SSDB  is  a  legacy  of 
an  earlier  version  without  disk  access  and  is  now  always  equal  to 
unity.) 

Another  related  COMMON  block,  /SSDFL/ ,  is  also  included  to  provide 
large  one-dimensional  storage  arrays  corresponding  to  each  of  the  above 
nine  single-block  arrays.  In  addition,  there  is  the  array  LINKF,  corre¬ 
sponding  to  the  single-block  array  LINK  in  COMMON/ ILINK/,  which  serves 
to  link  the  image  points  with  corresponding  object  points.  These  stor- 
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age  arrays  are  capable  of  holding  all  points  in  all  blocks,  and  values 
for  the  block  being  treated  can  be  written  from  the  storage  array  into 
the  single-block  array  and  vice  versa.  These  storage  arrays  have  the 
same  names  as  the  a  ingle- block  arrays  but  with  an  F  appended  to  the  end 
of  the  name,  e.g.  RF  corresponds  to  R.  The  storage  arrays  RF,  PF, 
SPACEF,  and  RADF  are  dimensioned  DIM2F:  IMAGEF  is  dimensioned  DIM3F; 
ACCF  and  TYPEF  are  dimensioned  DIMR;  RRF  and  ROF  .are  dimensioned  DIM4F 
and  DIMbF;  and  LINKF  is  dimensioned  DIM6F.  These  dimensions  (all  inte¬ 
gers)  are  calculated  in  PARAMETER  statements  from  DIMR,  DIMN,  and  DIMO. 
Also  in  this  COMMON  is  the  array  NDEXF(6,DIMBF)  which  contains  the  loca¬ 
tion  in  these  storage  arrays  for  the  first  point  in  each  block.  The 
integer  DIMBF  is  calculated  in  a  PARAMETER  statement  from  DIMB. 

Several  other  COMMON  blocks  are  used  to  transfer  parameters  between 
routines: 

/PARAM/  -  dimension  parameters  (all  integers): 

DMRR(DIMB)  -  number  of  Neumann  boundary  points  in  a  block. 

DMRO(DIMB)  -  number  of  orthogonal  boundary  points  in  a  block. 

CMAa(3,I)IMB)  -  number  of  points  in  each  of  the  three  directions  in 
a  block. 

BMAX  -  total  number  of  blocks. 

/NTERP/  -  interpolation  parameters  (all  integers,  except  CSC AL): 

PROTYP  -  transfinite  interpolation  form. 

PR0J(3)  -  interpolation  directions. 

PROF (3)  -  interpolation  types. 

BLEND (3)  -  blending  function  types. 

CSCAL  "  radius  of  curvature  scale,  (real,  not  related  to  interpola¬ 
tion) 
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/SECTN/  -  section  parameters  (all  integers): 


NAVG  -  block  number  of  current  block  being  treated. 

B  -  block  number.  (NBLK  in  the  subroutines) 

START (3)  "  first  corner  of  section. 

END (3)  -  opposite  corner  of  section. 

S(3)  -  order  of  curvilinear  coordinates. 

RS(3)  ~  order  of  Cartesian  components. 

/NEUMANN/  -  Neumann  boundary  parameters  (all  integers): 

IDXRR(DIMB,DNEU)  -  index  array  giving  location  In  RR  of  first  point 

in  each  section. 

NEUNOR (DNEU ,DIMB )  -  constant  curvilinear  coordinate  on  section. 

NEUBON (3 .0: 1 jDNEU ,DIMB )  -  curvilinear  coordinates  of  section  cor¬ 
ners  (second  subscript  0  for  first  cor¬ 
ner,  and  1  for  opposite). 

NEUNUM(DIMB)  -  total  number  of  sections  in  a  block. 

/ORTHOGL/  -  orthogonal  boundary  parameters  (all  integers): 

IDXR0(DIMB,D0RT)  -  index  array  giving  location  in  RO  of  first  point 

in  each  section, 

0RTN0R(D0RT,DIMB)  -  constant  curvilinear  coordinate  on  section. 

ORTBON(3,0: 1 ,D0RT,DIMB)  -  curvilinear  coordinates  of  section  cor¬ 
ners  (second  subscript  0  for  first  cor¬ 
ner,  and  1  for  opposite) 

ORTNUM(DIMB)  -  total  number  of  sections  in  a  block. 

/REFLECT/  -  reflective  boundary  parameters  (all  integers,  except  for 
REFDIR  and  WEIGHT). 

REFNUM(DIMB)  -  total  number  of  sections  in  a  block. 

REFNOR(DREF,DIMB)  -  constant  curvilinear  coordinate  on  section. 

REFBON(3,0: 1 ,DREF,DIMB)  -  curvilinear  coordinates  of  section  cor¬ 
ners  (second  subscript  0  for  first  cor¬ 
ner,  and  1  for  opposite). 

WEIGHT  -  control  for  volume  weighted  average  for  special  points 
(not  related  to  reflective  boundaries). 
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REFDIR (3,DREF ,DIMB )  -  Cartesian  components  of  normal  to  boundary. 
/SSDCOM/  -  block  storage  parameters  (all  integers); 

SB  -  now  a  dummy,  kept  at  unity. 

LAST  -  number  of  blocks  currently  in  core. 

KSTORE  -  block  storage  indicator. 

IMGF(!)IMB)  -  indicator  for  image  points  in  block  interior. 

/ILINK/  -  image-object  point  linkage  (all  integers). 

LINI(DIMB)  -  total  number  of  image  points  in  a  block. 

LINB(DIMB)  -  total  number  of  blocks  containing  object  points  of 
image  points  in  a  block. 

LINE .DIMB.DIMB )  -  first  (first  subscript  1)  and  last  (first  sub¬ 
script  2)  locations  of  a  group  of  image  points 
with  all  object  points  in  a  single  block. 

LINK(-3: 3,DIMI)  -  curvilinear  coordinates  of  image  point  (first 
subscript  -1,-2,-3),  object  block  number  (first 
subscript  0),  and  curvilinear  coordinates  of  ob¬ 
ject  point  (first  subscript  1,2,3). 

/SURFACE/  -  curved  surface  on  which  2D  grid  is  generated; 

RE(3 , 5,DIMC )  -  surface  spline.  As  RR  and  RO,  but  with  the  second 
derivatives  also  (second  subscript  4  and  5). 

VR(3,0;  2,0;  2)  -  interpolted  Cy  and  Cy  for  second  and  third  sub¬ 
scripts  1,0  and  2,0;  c^u  '^vv 
Cyy  for  1 ,2. 

SMAX(2)  -  curved  surface  dimensions. 


4.  Index  Functions 


Several  statement  functions,  with  integer  arguments,  are  used  to 
determine  the  locations  of  points  in  field  arrays  or  other  quantities; 


NX(B ,C1 ,C2 ,C3 )  -  location  of  point  with  curvilinear  coordinates  5^=Ci, 
(1=1, 2, 3)  in  block  B  in  singla-blockarray. 

NRB(B)  -  total  number  of  points  on  all  boundaries  (all  six  sides)  of 
block  B. 
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NCMAX(B)  -  total  number  of  points  in  block  B. 

NSPL(C1,C2),  with  ^^»C^(i-1,2)  -  location  of  a  point  on  the  curved  sur¬ 
face  on  which  a  2D  grid  is  generated. 

5.  Block  Storage 

The  code  is  set  up  to  treat  one  block  at  a  time,  and  hence  the  sub¬ 
routines  operate  with  only  a  single  block  in  the  nine  field  arrays 
R,P, SPACE, RAD, IMAGE, ACC, TYPE, RR.RO,  and  in  LINK.  Most  of  the  subrou¬ 
tines  are  called  for  each  block  and  hence  use  these  arrays,  with  three 
individual  subscripts  for  the  three  curvilinear  coordinates.  However, 
in  the  main  program  and  in  a  few  subroutines  that  involve  loops  over  all 
blocks,  (IMGIMG,  SETIMG,  FIXIMG,  SETIMR,  SETIMP,  and  SSD)  these  arrays 
have  only  a  single  subscript  to  identify  the  point  location.  In  that 
case  the  location  in  the  array  is  given  by  the  index  function 
NX(B,C1 ,C2,C3),  where  the  arguments  are  the  block  number  and  the  three 
curvilinear  coordinate  values  for  the  point  in  the  block. 

The  blocks  are  stored  either  on  disk  files,  one  block  to  a  file,  or 
in  the  core  storage  arrays  in  COMMON/SSDFL/ .  This  is  accomplished  by 
subroutine  SSD,  and  other  subroutines  beginning  with  SS  for  disk  stor¬ 
age  or  CC  for  core  storage,  which  are  called  whenever  a  new  block  is 
needed.  The  code  keeps  the  number  of  the  block  presently  in  core  as 
LAST  and  only  accesses  the  storage  when  the  next  block  to  be  treated  is 
different  from  LAST.  Subroutine  SSD  is  called  in  each  loop  over  the 
blocks  to  check  and  make  this  access  if  needed.  (Since  these  calls  are 
universal,  they  are  not  noted  in  the  discussions  of  the  various  opera¬ 
tions  that  follow.) 
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These  subroutines  either  read  and  write  the  nine  arrays  in  COM¬ 
MON/FIELD/  and  the  array  LINK  to  and  from  the  disk  files,  or  write  these 
arrays  to  and  from  the  storage  arrays  in  COMMON/ SSD FL/ .  With  disk 
storage,  the  arrays  are  read  and  written  with  three  subscripts  for  the 
point  locations,  while  with  core  storage  the  single  subscript  form  is 
used.  In  the  latter  case,  the  location  of  the  start  of  each  block  in 
the  storage  arrays  is  in  the  array  NDEXF(6,DIMBF),  where  the  value  with 
the  first  subscript  equal  to  1  is  the  location  in  the  ACCF  and  TYPEF 
arrays,  that  with  2  is  in  the  RF ,PF ,SPACEF ,  and  RADF  arrays,  that  with  3 
is  in  the  IMAGEF  array,  those  with  4  and  5  are  in  the  RRF  and  ROF  ar¬ 
rays,  respectively,  and  that  with  6  is  in  the  LINKF  array.  These  loca¬ 
tions  are  calculated  simply  as  the  appropriate  multiples  of  the  total 
number  of  points  in  the  block  (Including  the  surrounding  layers). 

This  construction  was  adopted  in  order  to  have  an  Identical  subrou¬ 
tine  structure  when  blocks  are  kept  on  disk  storage  or  all  in  core.  No 
storage  is  wasted  with  this  construction  when  disk  storage  is  used,  but 
storage  for  one  extra  block  is  used  if  all  blocks  are  kept  in  core. 


6.  Kroneker  Delta 


The  Kroneker  delta. 


5 


ij 


i  *  j 


i  »  j 


is  set  in  the  Integer  array  D(3,3): 
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D  -  1,0,0, 

0,1.0, 

0.0.1 

The  Kroneker  delta  array  serves  to  increment  curvilinear  coordinates  in 
loops.  Thus  the  arguments 

Cl  +  D(1,N),  C2  +  D(2,N),  C3  +  D(3,N) 

representing  the  triad  of  curvilinear  coordinates  of  a  point, 

assume  the  following  values  for  N«1,2,3: 


N  = 

1: 

Cl  + 

1,  C2, 

C3 

N  = 

2: 

Cl, 

C2  + 

1,  C3 

N  = 

3: 

Cl, 

C2, 

C3 

7.  Cyclic  Array 

The  Integer  cyclic  array  CY(2,3)  l3 

cy  =  2,3, 

3.1. 

1.2 

The  cyclic  array  is  used  in  circumstances  where  the  two  coordinate 
directions  that  are  cyclic  with  that  defined  by  a  loop  index  are  needed, 
e.g. ,  in  a  cross  product  or  on  a  surface. 
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Thus  for  I  =  1,2,3,  with  J  =  CY(1,I)  and  K  =  CY(2,I),  we  have 

1  =  1  J  =  2,  K=3 
1  =  2  J-3,  K=1 
1  =  3  J=1,  K=2 


8.  Loop  Order 

In  mnny  cases  the  order  of  three  nested  loops  over  the  curvilinear 
coordinates  is  determined  by  the  array  ORDER (3).  The  innermost  loop  is 
over  the  coordinate  direction  identified  by  the  first  entry,  ORDER(I), 
the  next  is  over  the  coordinate  given  by  ORDER (2),  etc.  The  limits  of 
such  loops  are  given  in  START (3)  and  END (3),  where  the  entries  START(i) 
and  END ( i )  are  the  limits  in  the  direction. 

9 .  Coordinate  Derivatives 

Throughout  the  code  the  Cartesian  coordinate  derivatives  are  usu¬ 
ally  placed  in  the  array  DR(3,  0:3,  0:3)  as 

(r  )  -  DR(n,i,0) 

-  A  II 
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(r  )  -  DR(n,i,j) 

where  n  indicates  the  Cartesian  component  of  the  vector.  (The  indices 
i,j,  and  n  all  range  from  1  to  3  here  and  below).  These  derivatives 
are  evaluated  by  second-order  central  difference  expressions  in  loops 
over  the  three  directions  and  components  using  the  Kroneker  delta  array 
D; 

+  D(1,i).  C2  +D(2,i),C3  +  D(3,i)) 

-^1  n  2 

-  R(n.B,C1  -  D(l.i),  C2  -  D(2,i),  C3  -  D(3,i))] 

(r  )  -R(n,B,C1  +  Dd.i),  C2  +  D(2,i).  C3  +D(3,i)) 

+  R(n,B,C1  -  D(1,l).  C2  -  D(2,l).  C3  -  D(3,i)) 

-  2»R(n,B,C1 ,C2,C3) 

i  =  iCR(n,B,C1+  D(1,i)  +D(1J), 

C2  +  D(2,l)  +  D(2,J), 

C3  +  D(3,i)  +  D(3,J)) 

+  R(n.B,  Cl  -  D(1  ,i)  ’  D(1 ,J), 

C2  -  D(2,l)  -  D(2,j), 

C3  -  D(3,i)  -  D(3,J))] 

-  R(n,B,  Cl  +  D(1 ,i)  "  D(1 ,J) 

C2  +  D(2,i)  -  D(2,J), 

C3  +  D(3,i)  -  D(3J)) 


-  R(n,B.  Cl  -  D(1  ,i)  +  D(1  ,J), 
C2  -  D(2,l)  +  D(2,j), 
C3  -  D(3,i)  +  D(3J))] 


10.  Metric  Elements 


The  elements  of  the  oovarlant  metric  tensor  are  placed  In  the  array 
G(3.3): 


gjj  “  G(l,j) 

and  those  of  the  contravarlant  (actually  the  product  thereof  with  the 
square  of  the  Jacobian)  are  in  the  array  GG(3f3)5 

gg^-^  .  GG(1,J) 

These  metric  tensor  elements  are  evaluated  from  the  expressions 


®jra®kn  “  ^Jn^km 


(i.J.k) 

cyclic 

(t ,m,n) 


B.  INPUT  PHASE 


The  code  first  sets  the  defaults  for  the  variables  in 
NAMELIST/ INPUT/  and  then  accepts  input  statements  to  read  that  NAMELIST. 
The  code  loops  through  a  series  of  such  input  statements,  and  the  de¬ 
faults  are  reset  after  each  input  statement.  After  reading  an  input 
statement,  the  code  first  retrieves  any  stored  input  values  of  SIZE, 
START,  END,  ISTART,  and  I END  that  are  indicated  by  negative  entries 
(Section  I-C1),  and  then  checks  the  input  variables  for  unreasonable 
values.  The  action  taken  on  each  input  statement  is  described  below,  as 
determined  by  the  value  given  to  ITEM.  This  input  phase  is  terminated 
by  an  input  statement  with  ITEM-" END". 

The  code  sets  values  in  ST  ART,  END,  I  ST  ART,  and  lEND  when  numbered 
points  are  used  (cf.  Section  I-C23  and  I1-B25),  l.e.,  when  only  a  single 
value  is  given  for  these  quantities,  before  retrieving  any  stored  val¬ 
ues. 

If  ITEM-" EXTRAP"  (for  extrapolated  Neumann  boundary  conditions. 
Section  1-26),  SPAVAL  is  set  to  "EXTRAP"  so  that  SPAN  will  be  equal  to 
"EXTRAP"  on  that  section.  This  is  used  by  NEUPTS  to  distinguish  ex¬ 
trapolation  boundary  conditions  from  orthogonal  boundary  conditions. 

1.  ITEM-" BLOCK"  (Sets  block  size,  Section  I-C2) 

The  total  number  of  blocks,  BMAX,  is  incremented  and  the  code  stops 
if  the  dimension  DIMB  is  exceeded.  The  code  then  checks  the  three 
entries  in  SIZE  for  compatibility  with  several  dimensions,  i.e.,  checks 
the  limits  on  block  size  in  regard  to  total  number  of  points  in  the 
block,  maximum  number  on  a  side  and  an  edge,  and  the  total  number  on  the 
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entire  block  boundary.  If  all  of  the  blocks  are  to  be  kept  in  core,  the 
limit  on  the  total  number  of  points  in  all  blocks  is  checked.  Finally, 
the  transfinite  interpolation  subroutine  TRANS  uses  an  EQUIVALENCE 
which  imposes  the  limit 

15*DIMT  ^  12*DIML*«2 

and  this  limit  is  checked.  (This  last  limit  could  be  obviated  by  remov¬ 
ing  the  EQUIVALENCE  between  the  arrays  ARS  and  P  in  the  main  program, 
but  at  the  cost  of  increased  storage.) 

The  location  of  the  block  in  the  core  storage  arrays  in 
COMMON/SSDFL/  is  then  calculated  if  all  blocks  are  to  be  kept  in  core. 
Here  the  number  of  Neumann  and  orthogonal  boundary  points  and  the  number 
of  image  points  are  temporarily  set  to  unity  since  these  numbers  are  not 
yet  known. 

The  three  entries  in  SIZE  are  then  placed  in  the  block  size  array, 
CMAX,  for  the  current  block  number.  Subroutine  SSDW  or  CCDW  is  then 
called  to  initialize  the  block  storage,  and  SSD  is  called  to  set  LAST  to 
the  current  block  number.  Then  DEFAUL  is  called  to  default  the  field 
arrays. 

The  block  size  is  set  here  only  if  SIZE  is  included  (cf.  Section 

I- C2).  If  a  file  number  is  included,  all  the  boundary  segments  for  the 
block  are  read  from  the  file  at  one  time  as  in  the  revision  of  Section 

II- B3. 
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2.  ITEM 


"SUB"  (Sets  up  a  sub-block.  Section  I-C16) 


The  counter  SUBNUM  is  incremented  for  the  block  indicated  by  BLOCK, 
and  the  two  opposing  corners  indicated  by  START  and  END,  which  define 
the  sub-block,  are  placed  in  the  arrays  SUBSTA  and  SUBEND  for  that 
sub- block  number. 

3.  ITEM»"F1LE"  (Reads  a  section  of  points  from  a  file,  Section  I-C3) 

The  file  (given  by  the  integer  FILE)  is  first  rewound  if 
REWIND="YES" ,  and  READF  is  called  to  read  the  Cartesian  coordinates  of 
the  points  on  the  section  identified  by  BLOCK,  START,  and  END  from  the 
file. 

If  ALL="YES"  is  included,  all  segments  on  the  file  are  read  at 
once.  This  assumes  the  file  was  generated  by  the  front-end  code  by 
ITEM«"COMBINE" .with  CONTENT-" YES" ,  (cf.  Section  I-C23  and  Vol.  II,  Sec¬ 
tion  I-E21).  In  this  case  the  segment  table  of  contents  is  read  from 
the  file  first,  and  then  READB  is  called  to  read  the  entire  file,  plac¬ 
ing  the  Cartesian  coordinates  of  the  points  in  the  array  BDATA(3,DIMD) 
where  the  second  subscript  counts  the  points.  The  location  in  this  ar¬ 
ray  of  the  first  point  on  the  segment  is  placed  in  the  array 
LSEG(DSEG,0; 2)  with  the  second  subscript  0,  and  the  dimensions  of  the 
segment  are  placed  with  the  second  subscript  1  and  2.  The  segment  num¬ 
ber  (the  COREOUT  number  from  the  front-end  code,  Vol.  II,  Section  I-E21 ) 
is  the  first  subscript. 
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ITEM="LIST"  (Reads  a  section  of  points  from  the  NAMELIST, 

Section  I-C3) 

Subroutine  READL  is  called  to  read  the  Cartesian  coordinates  of  the 
points  on  the  section  identified  by  BLOCK,  START,  and  END  from  the 
NAMELIST.  The  Cartesian  coordinates  appear  on  the  input  statement  in  the 
array  VALUES. 

5.  ITEM="FIX"  (Classifies  a  section  of  points  as  fixed  boundary 

values,  Section  I-CH) 

Subroutine  SETYPE  is  called  to  set  TYPE,  equal  to  ITEM  on  the  sec¬ 
tion  identified  by  BLOCK,  START  and  END. 

6.  ITEM="OUT”  (Classifies  a  section  of  points  as  out  of  the 

computation.  Section  I-C5) 

Subroutine  SETYPE  is  called  to  set  TYPE  equal  to  ITEM  on  the  sec¬ 
tion  identified  by  BLOCK,  START,  and  END. 

7.  ITEM="NEUMANN"  (Sets  up  a  section  of  points  for  boundary  ortho¬ 

gonality  through  Neumann  boundary  conditions. 
Section  I-C9) 

Subroutine  SETNEU  is  called  to  set  up  the  section  identified  by 
BLOCK,  START,  and  END. 

8.  ITEM  =  "NEUMAN1”  or  '*NEUMAN2"  or  "NEUMAN3"  (Restricts  movement  of 

Neumann  boundary  points  to  one  direction.  Section  I-C9.) 

Subroutine  SETRES  is  called  to  set  up  the  restricted  section  iden¬ 
tified  by  BLOCK,  START,  and  END. 
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9.  ITEM»"ORTHOG"  (Sets  up  a  section  of  points  for  boundary  ortho¬ 

gonality  through  Iterative  adjustment  of  control 
functions,  Section  I-C10.) 

Subroutine  SETORT  is  called  to  set  up  the  section  identified  by 
BLOCK,  START,  and  END. 

10.  ITEM="REFLECT''  (Sets  up  a  section  of  points  for  mirror-iramage 

boundary  conditions.  Section  I-C8) 

Subroutine  SETREF  is  called  to  set  up  the  section  identified  by 
BLOCK,  START,  and  END. 

11.  ITEM°”CUT”  (Sets  up  a  section  of  points  as  a  branch  cut,  Section 

I-C7.) 

If  the  cut  is  a  line  in  30,  or  a  point  in  2D,  IMONLY  is  set  to  1  to 
indicate  that  no  adjacent  image  points  are  to  be  set  up.  Subroutine 
SETIMO  is  called  to  set  the  image  points  in  the  object  block,  and 
SETIMI  is  called  to  set  the  image  points  in  the  image  block  for  the  cut 
specified  by  BLOCK,  START,  and  END  and  IBLOCK,  ISTART,  and  lEND, 
Subroutine  MOVEIN  is  called  to  contract  the  section  if  appropriate. 

The  code  checks  for  FIELD  points  that  would  be  the  objects  of  FIX, 
ORTHOG,  or  NEUMANN  points,  and  reverses  the  imaging  so  that  the  FIELD 
point  becomes  an  IMAGE  point.  The  check  is  made  in  subroutine  SETIMI, 
with  the  corresponding  points  to  be  changed  being  returned  in  LINK.  The 
total  number  of  points  to  be  changed  is  NCHG. 
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12.  ITEM  =■" FIELD"  (Classifies  a  single  point  as  a  point  to  be  treated  by 

the  grid  generation  system,  Section  I-C12) 

Subroutine  SETYPE  is  called  to  set  TYPE  equal  to  ITEM  for  the  point 
specified  by  BLOCK  and  POINT. 

13.  ITEM=" IMAGE"  (Classifies  a  single  point  as  an  image  point  and  sets 

up  the  correspondence  with  an  object  point,  Section 
I-C12.) 

Subroutine  SETOBJ  is  called  to  set  up  the  correspondence  between 
the  image  point  specified  by  IBLOCK  and  IPOINT  with  the  object  point 
specified  by  BLOCK  and  POINT. 

14.  ITEM=" AVERAGE"  (Classifies  a  single  point  to  be  set  as  an  average 

of  all  adjacent  points.  Section  I-C12) 

The  value  given  for  WEIGHT  is  saved  in  NWT,  and  WEIGHT  is  reset  to 
"NO".  Subroutine  SETYPE  is  called  to  set  TYPE  equal  to  ITEM  for  the 
point  specified  by  BLOCK  and  POINT. 

15.  ITEM="INTERP"  (Sets  Cartesian  coordinate  or  control  function 

values  for  points  on  a  section  by  interpolation. 
Section  I-C6.) 

If  FUN="POINTS" ,  Cartesian  coordinate  values  for  all  points  on  the 
section  identified  by  BLOCK,  START,  and  END  that  are  not  already  classi¬ 
fied  as  "FIX"  are  set  by  transfinite  interpolation  from  the  section 
boundaries  by  calling  TRANS.  If  CLASS  is  equal  to  "FIX",  then  TYPE  is 
reset  to  "FIX"  after  the  interpolation  by  calling  SETYPE.  If  FUN»"CON- 
TROL" ,  it  is  the  control  functions  that  are  determined  by  the  interpola¬ 
tion.  The  blending  functions  are  set  to  be  linear  regardless  of  the 
input  when  the  interpolation  is  for  the  control  functions. 
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If  the  required  points  are  not  specified  on  the  entire  boundary  of 
the  section,  the  interpolation  is  delayed  until  after  the  input  is  com¬ 
pleted.  In  this  case  the  interpolation  parameters  are  stored  on  file  10 
for  later  use.  The  total  number  of  delayed  sections  will  be  NTER. 

16.  ITEM='’ SMOOTH"  (Smoothes  Cartesian  coordinates  or  control  functions 

on  a  section,  Section  I-C13) 

If  FUN="BOU(ID" ,  the  Cartesian  coordinates  at  all  points  within  the 
section  identified  by  BLOCK,  START  and  END  that  have  TYPE=" FIELD"  are 
smoothed  immediately  by  calling  SMOOTH.  The  smoothing  is  done  in  the 
curvilinear  coordinate  directions  given  in  SMODIR,  and  only  the  Car¬ 
tesian  components  given  in  SMOCOM  are  smoothed.  If  the  section  lies  on 
a  block  boundary,  smoothing  is  only  done  in  the  two  directions  on  the 
boundary.  Smoothing  in  the  third  direction  in  ?.D  is  prevented. 

If  FUN*"POINTS" ,  the  smoothing  is  deferred  until  after  the  interpo¬ 
lation  for  the  initial  algebraic  grid.  In  this  case  the  counter  NSMOP  is 
incremented  and  the  relevant  parameters  are  written  on  file  9,  and  no 
other  action  is  taken  during  the  input  phase.  Since  image  points  will 
have  been  set  by  the  time  this  smoothing  is  done,  smoothing  normal  to 
the  block  boundaries  is  not  prevented. 

If  FUN="C0NTR0L" ,  the  control  functions  within  the  sections  will  be 
smoothed  after  they  have  been  calculated.  Here  also  the  relevant  parame¬ 
ters  are  written  on  file  9,  and  no  other  action  is  taken  during  the 
input  phase.  Control  functions  are  smoothed  only  in  the  two  directions 
that  are  different  from  that  of  the  function,  e.g.,  P^  is  only  smoothed 
in  the  and  directions. 
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In  the  last  two  cases,  if  ALL-"YES"  the  entire  field,  i.e.,  all 
points  in  all  blocks  that  have  TYPE-"FIELD" ,  will  be  smoothed.  Here  for 
each  block  the  appropriate  counter  is  incremented  and  the  relevant 
parameters  are  written  on  file  9. 

17.  ITEM="CONTROL"  (Calculates  control  functions  on  a  section.  Section 

I-C15) 

The  control  functions  are  calculated  at  all  points  on  a  section 
defined  by  BLOCK,  START,  and  END.  This  is  done  by  calling  CONLINR  if 
the  section  is  a  line,  or  by  calling  CONSURR  for  a  surface,  if  CONTYP  is 
equal  to  "RADIUS".  Otherwise  CONLINE  or  CONSURF  is  called.  (Since  the 
control  functions  are  calculated  for  all  blocks  after  the  initial 
algebraic  grid  has  been  generated,  this  present  feature  is  rarely  used, 
and  then  only  in  very  unusual  cases.) 

13.  ITEM°" INITIAL"  (Sets  the  type  of  interpolation  to  be  used  for  the 

initial  algebraic  grid.  Section  I-C14) 

If  ALL="YES"  the  same  type  of  interpolation  is  set  for  all  blocks. 
Otherwise  the  type  is  set  only  for  the  block  specified  by  BLOCK.  The 
interpolation  parameters,  PROFOR,  PRODIR  and  BLEND,  are  stored  in  IPROF, 
IPROJ,  and  IBLEND  for  later  use  after  the  input  phase. 

19.  ITEM="SPACE"  (Sets  the  off-boundary  spacing  for  a  section  for 

boundary  orthogonality,  Section  I-C11) 

Subroutine  SETSPA  is  called  to  set  the  spacing  on  the  section 
identified  by  BLOCK,  START,  and  END. 
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20.  ITEM«''SETVAL'*  (Calculates  and  stores  certain  input  quantities. 

Section  I-C1 . ) 

A  sum,  product,  a  sum-minus-one,  difference,  and  difference-plus- 
one,  of  terms  input  in  TERMS  is  calculated  and  stored  in  the  array 
IVALUE  at  the  location  indicated  by  VALOUT  for  later  use  as  a  value  in 
SIZE,  START,  END,  ISTART,  or  lEND.  The  input  parameter  MATH  determines 
the  type  of  calculation.  Entries  in  TERMS  indicated  by  negative  num¬ 
bers  are  themselves  retrieved  from  storage. 

21.  ITEM="ST0RE"  (Sets  the  storage  file  for  the  final  grid.  Section 

I-C17  ■ 

If  file  is  equal  to  "RESTART",  the  indicator  IRESTRT  is  set  to 
"YES"  to  cause  a  restart  file  to  be  written  on  file  7.  Otherwise  this 
input  operation  sets  the  storage  file  number,  given  by  FILE,  in  GRIDFIL 
for  storage  of  the  entire  grid  for  later  use  in  a  PDE  code.  (This  is  not 
to  be  confused  with  file  8  on  which  sections  of  the  grid  may  be  written 
for  plotting.) 

22.  ITEM  "SIZE"  (Sets  block  size,  Section  I-C2) 

The  block  size  is  set  as  in  Section  II-B1,  but  the  block  counter  is 
not  incremented. 

23.  ITEM  =»  "UNFIX"  (Returns  classification  of  a  section  of  points  to 

the  default,  "FIELD",  Section  I-C4) 

This  operates  as  does  operation  ITEM="FIX"  (Section  II-B5),  but  the 
setting  is  to  "UNFIX",  instead  of  "FIX". 
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ITEM  -  ” EXTRAP"  (Sets  up  a  section  of  points  for  zero  curvature 
boundary  conditions,  Section  I-C9) 

This  operates  as  does  ITEM-" NEUMANN"  (Section  II-B7),  but  the 
setting  is  to  "EXTRAP",  Instead  of  "NEUMANN". 

25.  ITEM-" POINT"  (Sets  a  numbered  point,  Section  I-C23) 

The  three  indices  fof*  a  numbered  point  are  set  either 

directly  or  relatlonally  from  another  point.  If  ALL-"YES"  a  group  of 

points  is  set  from  a  group  of  other  points.  The  three  indices  are 
stored  in  the  array  LP0INT(3*DPNT,DIMB),  where  the  point  number  and 
block  number  appear  as  the  second  and  third  subscripts.  The  indices  are 
set  directly  to  the  values  in  LDCAT(3)  if  it  is  included.  Otherwise, 
the  indices  are  incremented  from  those  of  the  point  indicated  by  OPOINT. 
If  SEGMENT  is  present,  the  Increment  is  placed  in  POINTS  from  the  seg¬ 
ment  array  LSEG  (cf.  revision  of  Section  II-B3). 

26.  ITEM-" SEGMENT"  (Reads  a  section  of  points.  Section  I-C3) 

The  subroutine  READS  is  called  to  read  the  Cartesian  coordinates  of 
the  points  for  the  numbered  segment  indicated  by  SEGMENT  from  the  stor¬ 
age  array  BDATA  onto  the  section  identified  by  BIDCK, START,  and  END. 

27.  ITEM-"SURFACE"  (Reading  of  curved  surface  from  file.  Section  l-C2^) 

The  Cartesian  coordinates  of  the  surface  are  read  from  the  indi¬ 

cated  file,  or  from  the  namelist,  into  the  array  RE(3,0,NSPL(C1 ,C2)) . 
MODE  is  set  to  "SURFACE". 
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C.  SETUP  PHASE 


1 .  Derivative  Forms 

The  integer  indicators  AFIRST  and  ACROSS  are  set  according  to  the 
form  of  the  derivatives  specified  by  DFIRST  and  DCROSS  on  the  input 
(Section  I-C20). 

2.  Sub-BlocWs 


In  a  loop  over  all  the  blocks,  if  no  sub-blocks  have  been  specified 
for  a  block,  the  sub-block  corners  in  SUBSTA  and  SUBEND  are  set  to  the 
entire  block.  Otherwise  CHKSUB  is  called  to  check  the  sub-block  struc¬ 
ture  for  the  block  for  complete  coverage  of  the  block  (Section  I-CI6). 

3.  Restart 

If  the  indicator  RESTART  is  different  from  the  default  value  "NO”, 
(Section  I-C22)  certain  quantities  are  read  from  file  7,  and  IPROJ  is 
set  to  "NONE"  to  skip  the  generation  of  the  algebraic  grid.  A  loop  is 
made  over  all  blocks,  calling  REDRES  for  each  block  to  read  the  field 
arrays  for  the  block  and  then  calling  SSDW  or  CCDW  to  set  up  the  stor¬ 
age.  If  the  restart  is  from  the  midst  of  the  iterative  solution,  the 
code  then  skips  to  continue  the  interatlon. 

4.  Image  Points 

The  code  calls  IMGIMG  to  remove  ambiguities  arising  from  image 
points  having  other  image  points  as  objects  to  set  the  image  points  for 
special  points. 
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5 .  Boundary  Array  for  Neumann  Boundaries 

The  Neumann  boundary  sections  for  a  block,  B,  are  stacked  in  the 
array  RR(3iO;3.n),  with  the  last  subscript  counting  the  points  from  1  to 
the  total  number  DMRR(B).  The  location  in  RR  of  the  first  point  in  each 
section,  i.e.,  the  value  of  n,  is  in  the  array  IDXRR(B,m),  where  m  is 
the  section  number.  Points  are  located  in  RR  by  the  index  function 
NDXRR(B,m,i,j)  -  IDXRR(B,m)  +  (j-1  )  »  IT  +  i 
where  i  and  j  are  the  increments  from  the  first  corner  in  the  two  coor¬ 
dinates  that  vary  on  the  section,  in  cyclic  order  with  the  one  that  is 
constant  thereon,  and  IT  is  total  number  of  points  in  the  i-dlrection 
on  the  section. 

The  total  number  of  Neumann  sections  in  the  block  is  in  the  array 
NEUNUM(B),  and  the  total  number  of  points  in  all  these  sections  is  in 
the  array  DMRR(B).  Each  of  these  sections  is  defined  on  input  (Section 
I-C9).  The  second  subscript  in  RR  identifies  (1)  the  Cartesian  coordi¬ 
nates  of  the  point  on  the  section;  (1  and  2)  the  first  derivatives  in  the 
two  directions  on  the  section,  cyclic  with  the  curvilinear  coordinate 
that  is  constant  on  the  section;  and  (3)  the  cross-derivative  on  the 
surface.  The  first  subscript  of  RR  identifies  the  Cartesian  component. 
In  addition,  there  are  two  other  arrays,  NEUNOR(m,B)  which  identifies 
the  curvilinear  coordinate  that  is  constant  on  section  m  and 
NEUB0N(3 ,0: 1 ,m,B )  which  contains  the  curvilinear  coordinates  of  the  two 
opposite  corners  (0  and  1  for  the  second  subscript)  defining  the  sec¬ 
tion  (Section  II-B7). 
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All  blocks  are  swept  and,  for  each  having  Neumann  boundary  sec¬ 
tions,  subroutine  CHKNEU  is  called  to  check  for  bad  points  and  NEUIDX 
is  called  to  set  up  the  boundary  array  for  the  block,  and  SETSPL  is 
called  to  spline  all  the  sections  in  the  block.  The  next  available 
location  in  the  core  storage  array  RRF  is  placed  in  NDEXF  with  the  first 
subscript  it  (Section  II-A5). 

6 .  Boundary  Array  for  Orthogonal  Boundaries 

The  orthogonal  boundary  sections  for  a  block  are  stacked  in  the 
array  RO  (3,  0:3,n)  in  the  same  manner  described  above  for  Neumann 
sections  in  Section  II-C5,  except  that  only  the  Cartesian  coordinates 
are  included  here.  All  the  other  arrays  in  that  section  occur  here 
also,  with  RR  replaced  by  RO,  and  with  NED  by  ORT,  in  all  array  names 
and  in  the  name  of  the  index  function.  The  input  of  the  sections  is 
described  in  Section  I-C10  and  the  resulting  action  in  Section  II-B9. 

All  blocks  are  swept  and,  for  each  having  orthogonal  boundary 
sections  (based  on  Iterative  adjustment  of  the  control  functions), 
subroutine  CHKORT  is  called  to  check  for  bad  points  and  ORTIDX  is  called 
to  set  up  the  orthogonal  boundary  array  for  the  block.  The  next  avail¬ 
able  location  in  the  core  storage  array  ROF  is  placed  in  NDEXF  with  the 
first  subscript  5  (Section  II-A5). 

7.  Interpolation  for  Initial  Algebraic  Grid 

If  an  initial  grid  is  not  being  read  in,  an  initial  algebraic  grid 
is  generated  by  transflnite  interpolation  in  each  block  by  calling  TRANS 
with  PROTYP-"FACES"  and  with  the  interpolation  directions  and  blending 
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functions  that  were  specified  by  PRODIR  and  BLEND  on  the  ITEM«" INITIAL" 
read  statement  during  the  input  phase  (Section  I-C14).  This  interpola¬ 
tion  sets  values  for  the  Cartesian  coordinates  at  all  points  in  each 
block  that  are  not  classified  "FIX". 

Subroutine  IMGPTS  is  first  called  to  set  the  values  of  the  Car¬ 
tesian  coordinates  at  the  image  points  in  all  the  blocks,  If  some  sec¬ 
tion  interpolation  has  been  delayed  from  the  input  phase  (NTER*0,  cf. 
revision  of  Section  II-B15),  then  file  10  is  rewound.  The  interpolation 
parameters  for  each  of  the  delayed  sections  are  read  from  file  10  in 
succession  and,  for  each,  TRANS  is  called  to  do  the  interpolation.  Sub¬ 
routine  SETTPE  is  called  to  classify  the  points  on  the  section  as  "FIX" 
after  the  interpolation  if  such  la  indicated. 

In  the  delayed  section  interpolation,  and  in  the  interpolation  for 
the  algebraic  grid  that  follows,  if  the  required  values  for  the  Car¬ 
tesian  coordinates  have  not  been  set  on  the  entire  boundary  of  the  in¬ 
terpolation  region,  interpolation  of  lesser  dimensionality  is  attempted 
to  supply  the  missing  values. 

If  TRANS  finds  insufficient  boundary  values  in  a  certain  interpola¬ 
tion  direction,  that  direction  is  returned  in  LUS(1).  Whether  the  miss¬ 
ing  values  are  on  the  lower  or  upper  boundary  of  the  section  in  that 
direction  is  indicated  by  a  0  or  1  value  in  LUS(2).  After  saving  the  val¬ 
ues  of  START, END,  and  PRODIR(I),  START  and  END  are  reset  to  the  section 
boundary  with  the  missing  data  and  PRODIR(I)  is  set  to  0  to  cause  the 
interpolation  to  default  to  the  dimensionality  of  that  section  boundary. 
Subroutine  TRANS  is  then  called  again  to  interpolate  for  values  on  that 
section  boundary. 
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If  the  section  boundary  with  the  missing  values  is  a  surface,  and 
TRANS  again  detects  missing  data,  the  process  is  repeated  with  still  an¬ 
other  call  to  TRANS  to  interpolate  on  an  edge  of  that  surface.  In  that 
case,  after  all  such  edges  have  been  interpolated,  the  code  returns  to 
the  surface  and  again  calls  TRANS  for  that  surface. 

This  process  continues  until  all  missing  data  has  been  set  or  until 
an  unresolvable  situation  is  encountered,  in  which  case  LUS(2)  is  set  to 
-1 . 

If  a  sub-block  structure  (Section  I-C16)  has  been  set  up  for  a 
block,  CHKINT  is  called  to  check  for  interior  points  at  which  values 
have  been  set.  If  such  points  are  present,  the  interpolation  is  done  by 
sub-blocks,  i.e.,  within  sub-blocks  defined  by  the  opposing  corners  set 
in  SUBSTA  and  SUBEND .  Subroutine  IMGPTS  is  called  before  the  interpola¬ 
tion  to  set  values  of  the  Cartesian  coordinates  at  "IMAGE"  points. 

For  2D,  the  coordinate  on  the  adjacent  layers  at  0  and  2  in  the 
third  direction  are  set  to  ±1  in  such  a  way  as  to  make  the  system 
right-handed  (with  X2=0  on  by  calling  SETAXS.  The  x^  and  Xo 
Cartesian  coordinates  at  points  on  the  adjacent  layers  are  set  equal  to 
those  values  at  1  after  the  interpolation  by  calling  SETH2D. 

8.  Normals  on  Reflective  Boundaries 

The  reflective  boundary  sections  for  a  block  use  a  set  of  arrays 
similar  to  those  for  Neumann  sections  in  Section  II-C5,  but  with  NEU 
replaced  by  REF  in  the  names.  There  is  an  additional  array, 
REFDIR(3,m,B),  which  contains  the  Cartesian  components  of  the  unit 
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normal  to  the  section,  and  there  is  no  counterpart  of  the  array  RR.  The 
input  of  those  sections  is  described  in  Section  I-C8  and  the  resulting 
action  thereon  in  Section  II-B10. 

All  blocks  are  swept,  and  for  each  having  reflective  boundary  sec¬ 
tions,  subroutine  SETNOR  is  called  to  set  the  normals  to  the  sections. 

9.  Values  At  Image,  Reflect,  Neimann,  and  Average  Points 

The  values  of  the  Cartesian  coordinates  at  the  image  reflect, 
Neumann,  and  average  points  are  then  set  n  the  initial  grid  by  calling 
SETIMR(I).  If  there  are  any  special  points  to  be  set  by  a  volume- 
weighted  average,  SETIMR(I)  is  called  a  second  time  in  order  to  use  the 
relevant  cell  volumes  from  the  first  call. 

10.  Smooth  Coordinates 

If  smoothing  of  the  initial  grid  has  been  called  for  during  the 
input  phase  (with  ITEM-" SMOOTH" ,  Section  I-C13)  then  the  smoothing 
parameters  are  read  from  file  9  after  rewinding.  The  smoothing  is  done 
by  calling  SMOOTH,  using  P  as  the  dummy  array.  Since  only  the  "FIELD" 
points  are  smoothed,  SETIMR(I)  is  again  called  to  reset  the  values  at 
the  image  points. 

1 1  ,  Jacobian  Check 

All  blocks  are  swept,  calling  subroutine  CHKSET  to  check  for 
"FIELD"  or  "IMAGE"  points  adjacent  to  points  for  which  no  Cartesian 
coordinate  values  have  been  set.  Next  JACBCK  is  called  to  check  the 
initial  algebraic  grids  for  points  with  zero  Jacobian  or  a  locally 


left-handed  system.  The  former  usually  means  some  input  data  has  been 
omitted  and  hence  the  code  stops  when  a  zero  Jacobian  is  found  in  the 
field  (but  not  on  a  fixed  boundary).  Although  a  left-handed  system  could 
mean  twisted  boundaries  as  a  result  of  errors  in  the  input  data,  it 
could  also  mean  simply  that  the  algebraic  grid  has  overlapped  a  segment 
of  the  physical  boundary.  In  that  case  the  elliptic  generation  system 
may  be  able  to  resolve  the  overlap  and  produce  a  grid  that  is  right- 
handed  everywhere.  Therefore,  the  code  notes  the  presence  of  the  lo¬ 
cally  left-handed  system  but  continues  on  unless  a  stop  has  been  called 
for  on  the  input  (Section  I-C19). 

12.  Coordinate  Extremes 

All  blocks  are  swept,  calling  subroutine  EXTCOR  to  evaluate  and 
print  the  extreme  values  of  the  Cartesian  coordinates  of  the  points  in 
each  block. 


1  3*  Radius  of  Curvature  Scale 

A  coordinate  scale,  RSCAL,  is  calculated  in  EXTCOR  as  the  maximum 
extent  of  the  entire  physical  region  in  any  Cartesian  direction.  A 
point  scale  PSCAL  is  also  calculated,  as  the  cube  root  (square  root  in 
2D)  of  the  total  number  of  points  in  all  blocks.  From  these  a  scale, 
CSCAL,  for  the  radius  of  curvature  to  be  used  in  the  evaluation  of  the 
control  function  is  calculated  as 


CSCAL 


RSCAL  .-4 
PSCAL 
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This  form  arises  from  consideration  of  the  curvature  contribution  r^/r 
which  appears  in  the  control  function  (Appendix  C).  If  an  error  e  in 
the  control  function  is  tolerable,  the  curvature  contribution  is  negli¬ 
gible  if  the  radius  of  curvature  is  larger  than  CSCAL,  defined  by 


Also,  from  the  arc  length  contribution  to  the  control  function, 
it  follows  that  when  the  spacing  doubles  from  one  point  to  the  next, 
the  control  function  is  about  (2Ar  -  Ar)/Ar  =  1,  and  thus  a  nominal 
value  for  the  control  function  in  unity.  Therefore,  since  RSCAL/PSCAL  is 
a  measure  of  the  spacing,  r^,  the  scale  for  the  radius  of  curvature  is 
set  as  given  above,  corresponding  to  an  error  of  about  0.01$  in  the 
control  function.  Surfaces  with  radius  of  curvature  larger  than  CSCAL 
(e.g.  flat  surfaces  with  infinite  radius  of  curvature)  have  their 
radius  set  to  CSCAL  by  the  code. 

1 14 .  Control  Functions 

The  three  control  functions,  Pj(i=1,2,3)>  are  in  the  field  array  P. 

If  CONTYP  (Section  I-C15)  is  equal  to  "ORTHO"  or  "0RTH02",  CONINT  is 
called  for  each  block  to  produce  control  functions  from  the  initial 
grid,  but  with  terms  arising  from  nonorthogonality  omitted.  Otherwise 
the  control  functions  are  interpolated  from  boundary  values  by  trans- 
finite  interpolation.  (If  the  2D  curved  surface  mode  is  indicated, 
SCONINT  is  called,  instead  of  CONINT,  for  control  functions  evaluated 
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from  the  algebraic  grid.)  If  a  sub-block  structure  has  been  set  up  for  a 
block,  this  interpolation  is  by  sub-blocks  (Section  I-C16).  In  any  case 
the  control  functions  are  used  only  at  "FIELD"  points. 

If  CONTYP»" SIDES" ,  the  control  functions  are  first  evaluated  on  all 
surfaces  of  a  block  by  calling  CONSURF  for  each  aide  of  the  block.  In 
this  surface  evaluation,  only  the  two  control  functions  in  the  curvi¬ 
linear  coordinate  directions  that  vary  on  the  surface  are  determined. 
Both  the  arc  length  and  the  curvature  contributions  to  the  control 
functions  are  included  in  this  evaluation  on  the  surface,  the  latter 
being  Interpolated  from  the  edges  onto  the  surfaces  by  calling  TRANS. 


On  the  edges  of  the  surface,  only  the  single  control  function  in  the 
direction  that  varies  along  the  edge  is  determined.  The  result  is 
indicated  in  the  following  diagram: 
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Each  control  function  is  then  interpolated  into  the  interior  of  the 
block  from  the  four  sides  on  which  it  is  known  by  calling  TRANS. 


For  CONTYP="RADIUS" ,  the  arc  length  contribution  (placed  in  P)  and 
the  arc  length  spacing  (placed  in  the  field  array  SPACE)  in  the  two 
curvilinear  coordinate  directions  that  vary  on  a  surface  are  evaluated 
on  each  side  of  the  block.  This  again  is  represented  by  the  preceding 
diagram  with  each  of  these  two  quantities  indicated  by  there.  The 
radius  of  curvature  of  the  surface  is  evaluated  on  each  surface  also,  as 


in  the  following  diagram,  and  is  placed  in  the  field  array  RAD. 


The  evaluation  of  all  three  of  these  quantities  is  done  by  calling 
CONSURR  for  each  side  of  the  block.  The  arc  length  spacing,  s^^,  and  the 
arc  length  contribution,  ,  to  the  control  function  are  interpolated  by 
TRANS  into  the  interior  of  the  block  from  the  four  sides  on  which  they 
are  known,  using  linear  blending  functions; 


The  radius  of  curvature,  pj^,  is  interpolated  by  TRANS  into  the  interior 
from  the  two  sides  on  which  it  is  known,  using  blending  functions  based 
on  the  hyperbolic  sine  (Appendix  G). 


136 


r^i 


If  the  radius  of  curvature  is  of  opposite  signs  at  the  two  corre¬ 
sponding  points  on  a  pair  of  opposing  sides  of  the  block, 


an  infinite  radius  of  curvature  must  occur  between  the  boundaries,  and 
account  of  this  is  taken  in  the  interpolation  (Appendix  G) . 

The  control  function  is  finally  formed  by  adding  the  arc  length 
spacing  divided  by  the  radius  of  curvature  to  the  arc  length  contribu¬ 
tion,  this  being  done  by  calling  CONFUN.  Subroutine  SETIMP  is  then 
called  to  set  the  control  functions  at  the  points  not  designated  "FIELD" 
or  "OUT",  by  extrapolation  from  the  "FIELD"  points. 
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After  the  control  functions  have  been  evaluated  in  all  blocks, 
these  functions  are  smoothed  if  such  has  been  called  for  during  the  input 
phase.  Subroutine  CHKCON  is  called  first  for  each  block  to  check  for 
unset  values  that  are  needed  by  the  smoothing.  The  smoothing  parameters 
are  read  from  file  9  and  SMOOTH  is  called,  using  R  as  the  dummy  array. 

15.  Control  Function  Extremes 

All  blocks  are  swept,  determining  and  printing  the  extreme  values 
of  the  three  control  functions  over  the  entire  composite  grid  by  calling 
EXTCON . 

16.  Acceleration  Parameters 

If  ACCPAR="OPTIMUM" ,  (Section  I-C18)  then  OPTACC  is  called  for  each 
block  to  calculate  acceleration  parameters  for  each  "FIELD"  point,  these 
parameters  being  placed  in  the  field  array  ACC.  (If  the  2D  curved 
surface  mode  is  indicated,  SOPTACC  is  called,  instead  of  OPTACC,  to 
generate  the  optimum  acceleration  parameters.)  Otherwise  ACC  is  set  to 
ACCPAR  for  all  points  by  calling  SETACC. 

17.  Orthogonal  Boundary  Initialization 

If  CONUPI  is  not  0  (Section  I-C10),  subroutine  CONSETU  is  called 
for  each  block  to  initialize  the  orthogonal  boundary  sections. 

18.  Default  of  Control  Functions 

If  CONTYP-" INITIAL" ,  smoothing  of  the  control  functions  is  set  up. 
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19 .  Curved  Surface  Spline 

If  a  2D  grid  is  to  be  generated  on  a  curved  surface,  the  Cartesian 
coordinates  of  the  points  on  the  surface  are  placed  in  the  array 
SUR (3 ,0: 5,DIMC )  with  a  0  for  the  second  subscript.  The  last  subscript 
counts  the  points  according  to  the  index  function  NSPL.  Subroutine 
SPLSUR  is  then  called  to  spline  the  surface,  and  the  spline  coefficients 
are  placed  in  the  surface  spline  array  RE(3.0: 5,DIMC)  with  values  of  the 
second  subscript  as  follows: 
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Account  is  taken  of  the  direction  of  larger  dimension  on  the  sur¬ 


face  in  the  interest  of  vectorization. 


D.  OUTPUT  PHASE 


There  follows  next  a  series  of  reads  of  the  NAM EL I ST/ OUTPUT/ 
through  which  the  type  of  output  to  be  given  is  specified.  Each  of 

these  input  statements  contains  ITEM=" _ ” ,  where  the  alphanumeric  value 

given  determines  the  type  of  output  (Section  I-D).  The  print  of  the 
initial  grid  is  done  in  immediate  response  to  the  input  statement.  Data 
from  an  input  statement  calling  for  a  print,  plot,  or  storage  of  the 
final  grid  is  saved  for  use  after  the  grid  has  been  generated.  The 
quantities  in  this  NAMELIST  are  defaulted  after  each  input  statement. 
This  phase  is  terminated  by  an  input  statement  with  ITEM="END".  The 
various  output  actions  indicated  are  as  follows: 

As  in  the  NAMELIST/ INPUT/ ,  numbered  points  can  be  used  as  single 
entries  in  START  and  END,  (of.  Section  I-C23). 

On  all  the  OUTPUT  operations,  the  inclusion  of  PART="SIDES"  causes 
all  sides  of  a  block  to  be  output,  and  "EDGES"  produces  all  edges. 

1.  ITEM='’ INITIAL"  (prints  initial  grid.  Section  I-D1  ) 

This  prints  all,  or  a  portion  of,  the  initial  grid  by  calling 
PRTGRD.  The  entire  grid  is  printed  if  ALL="YES" .  Otherwise  the  section 
identified  by  BLOCK,  START,  and  END  is  printed. 


2.  ITEM  =■" PRINT"  (prints  final  grid.  Section  I-D1) 


This  prints  the  final  grid  In  the  same  manner,  and  under  the  same 
type  of  control,  as  described  for  the  intial  grid.  The  only  difference 
is  that  "OUT"  points  are  not  Included  in  the  default  of  this  print. 
Again  any  number  of  input  statements  can  be  given,  one  for  each  section 
to  be  printed.  The  print  is  done  by  calling  PRTGRD. 

3.  ITEM="PLOT"  (writes  final  grid  on  file  for  plotting.  Section  I-D2) 

This  writes  the  final  grid  on  file  8  in  the  same  manner,  and  under 
the  same  type  of  control,  as  described  above  for  printing  the  final 
grid.  Again  any  number  of  input  statements  can  be  given,  one  for  each 
section  to  be  plotted.  The  write  is  done  by  calling  WRTPLT. 

A.  ITEM-" ERROR"  (prints  iteration  error  norms.  Section  I-D3) 

This  causes  the  maximum  norm  of  the  change  in  the  Cartesian  coordi¬ 
nates  between  iterations  to  be  printed  after  each  iteration.  If 
BLKERR="YES" ,  the  norm  in  each  block  is  printed,  otherwise  only  a 
single  norm  over  the  entire  field  is  printed. 


E.  GENERATION  PHASE 


1  .  Iteration 

If  ACCPAR=0  the  initial  algebraic  grid  is  output  as  the  final  grid. 
Otherwise,  the  elliptic  grid  generation  equations  are  solved  by  point 
Gauss-Seidel  iteration.  The  SOR  sweeps  alternate  in  all  three  direc¬ 
tions  so  that  the  iteration  is  symmetric  point  SOR.  The  control  func¬ 
tions  may  be  held  fixed  or  may  be  changed  iteratively  to  produce 
boundary  orthogonality  and  specified  off-boundary  spacing  (Section 

I- C10).  If  the  control  functions  are  to  be  changed  iteratively  to 
produce  boundary  orthogonality  and  specified  off-boundary  spacing,  then 
after  a  specified  number,  CONUPI,  of  Iterations,  CONSETE  is  called  for 
each  block  to  change  the  control  functions,  and  OPTACC  is  called  to 
recalculate  the  control  functions  if  such  has  been  indicated. 

Each  Iteration  for  the  solution  is  done  by  a  call  to  VOLSYS,  after 
which  SETIMR(O)  is  called  to  reset  the  values  of  the  Cartesian  coordi¬ 
nates  at  all  "IMAGE",  "REFLECT",  "NEUMANN",  and  "AVERAGE"  points,  using 
the  current  values  at  the  relevant  "FIELD"  points.  In  the  2D  curved 
surface  mode,  SURSYS  is  called,  instead  of  VOLSYS,  to  sweep  the  field. 

The  iteration  error  norm  (the  maximum  change  in  any  Cartesian  coor¬ 
dinate  on  the  field  relative  to  the  coordinate  scale,  RSCAL,  Section 

II- BI3)  is  then  printed  and  checked  for  convergence.  The  code  stops  if 
this  norm  exceeds  1.0. 


2.  Output 


When  convergence  is  achieved,  or  if  the  maximum  number  of  itera¬ 
tions  allowed  is  reached,  values  of  the  Cartesian  coordinates  on  the 
second  surrounding  layer  of  points  around  each  block  are  set,  if  such 
has  been  called  for,  by  calling  SETIMR(NS).  All  or  section  of  the  final 
grid  are  printd  and/or  written  on  file  8  for  plotting  according  to  the 
instructions  that  have  been  given  through  the  reads  of  NAMELIST/OUTPUT/ 
during  the  Output  Phase  (Section  II-D )  by  calling  PRTGRD  or  WRTPLT  for 
each  section  indicated.  If  GRIDFIL  is  not  zero,  the  grid  is  written  on 
file  for  latter  input  to  a  PDE  code.  If  OUTER  is  equal  to  "YES",  the 
arrays  R,  TYPE,  and  IMAGE,  including  the  surrounding  layers,  are  all 
writt(;n  on  this  file  by  calling  WRTGRD,  otherwise  only  R,  without  the 
surrounding  layers,  is  written  by  calling  WRTRRR.  If  a  restart  file  has 
been  called  for,  certain  quantities  are  written  on  file  7  after  re¬ 
winding,  and  WRTRES  is  called  for  each  block  to  write  the  field  arrays 
on  file  7. 

In  the  2D  curved  surface  mode,  SURCOR  is  called  for  each  block  to 
convert  the  surface  parametric  coordinates  to  Cartesian  coordinates.  The 
curved  surface  itself  is  stored  as  the  first  section  on  file  8  for  plot¬ 
ting.  Sections  of  the  grid  stored  by  ITEM-" PLOT"  statements  will  follow 
the  curved  surface  on  that  file. 


F.  SUBROUTINES 


1 .  Classes 

There  are  two  basic  classes  of  subroutines  in  the  code.  One  class, 
composed  of  IMGIMG,  SETIMR,  SETIMP,  IMGPTS,  FIXIMG,  BLKCON,  and  SSD,  has 
the  COMMON  blocks  FIELD  and  SSDFL  as  does  the  main  program.  In  these 
six  subroutines,  and  in  the  main  program,  the  field  arrays  R,P, SPACE, 
RAD,  IMAGE, ACC. TYPE,  and  LINK  are  dimensioned  (_,DIMT),  where  the  first 
dimension  is  3  for  the  first  four  of  these,  0:3  for  IMAGE,  non-existent 
for  ACC  and  TYPE,  and  -3:3  for  LINK.  Similarly,  the  boundary  arrays  RR 
and  RO  are  dimensioned  (3,0:3.DMNT)  and  (3 ,0: 3,DMOT ) .  Points  in  the 
block  are  thus  located  in  these  ten  arrays  in  a  one-dimensional  manner 
and  must  be  accessed  in  all  but  LINK  through  the  index  function 
NX{B,C1 ,C2,C3)  where  B  is  the  block  number,  and  the  last  three  sub¬ 
scripts  are  the  curvilinear  coordinates,  of  the  point  in  the  block. 
This  function  is  defined  as 

NDX  =  ((C1-IS)  +  ((C2-IS) 

+  ((C2-IS)  +  (C3-IS)  »  (CMAX(2,B)  +  2  *  NS) 

*  (CMAX(1,3)  +  2  »  NS))  +  1 

Here  NS  is  the  number  of  surrounding  layers,  and  IS=1-NS,  so  that  Cl 
runs  from  0  to  CMAXCl ,B)+NS,  etc.  The  first  three  of  these  subroutines 
and  the  main  program  contain  loops  over  all  blocks,  calling  SSD  to  place 
a  block  in  core.  Subroutines  IMGPTS,  FIXIMG,  and  SSD  receive  the  block 
number  as  the  argument.  Only  these  routines  and  the  main  program  can 
contain  such  loops  over  all  blocks,  and  only  these  can  call  SSD  or  other 
related  routines  beginning  in  SS  or  CC.  In  the  discussion  of  these 
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routines  a  loop  over  all  blocks  will  always  contain  a  call  to  SSD  to  put 
the  block  in  core,  and  this  will  not  be  explicitly  mentioned  in  the 
discussion. 

All  the  other  subroutines  treat  the  seven  field  arrays  R,P, SPACE, 
RAD , IMAGE, ACC,  and  TYPE  as  three-dimensional  in  the  sense  of  point 
locations,  so  that  points  can  be  accessed  directly  by  the  three  sub¬ 
scripts  C1,C2,C3.  In  these  subroutines  these  arrays  are  variable- dimen¬ 
sion  arrays  received  as  arguments,  and  are  dimensioned 

(_,1 ,IS;DIM1 ,IS:DIM2,IS:DIM3) 

where  the  first  subscript  is  the  same  as  used  in  the  other  class.  Here 
IS  is  as  defined  for  the  other  class,  and  DIM1 ,DIM2,DIM3  are  received 
as  arguments.  Similarly  the  RR  and  RO  arrays  are  also  variable- dimen¬ 
sion  arrays  received  as  arguments,  and  are  dimensioned  (3»0:  3»I>MRR ,  1 ) 
and  (3*0: 3.DMR0 ,1  ) ,  with  DMRR  and  DMRO  received  as  arguments.  These 
subroutines  can  only  access  the  block  that  is  currently  in  core,  and  the 
block  number  of  this  block  is  received  as  NBLK  in  COMMON/SECTN/ . 

2.  SUBROUTINE  SSD  (access  to  storage) 

This  subroutine  places  a  block  in  core  by  first  either  SSDW  or 
CCDW  to  write  the  block  currently  in  core  out  to  storage,  and  then 
calling  S3DR  or  CCDR  to  read  the  desired  block  into  core.  The  block  to 
be  placed  in  core  is  identified  by  the  argument  B,  and  the  block  cur¬ 
rently  in  core  by  LAST.  If  these  are  the  same  block,  the  routine  simply 


returns.  If  KSTORE  =  "FILE",  reading  and  writing  are  done  by  SSDR  and 
SSDW  using  the  disk;  otherwise  CCDR  and  CCDW  are  used  to  access  master 
storage  arrays  in  core  (Section  II-A5). 

3.  SUBROUTINE  IMGIMG  (Resolution  of  image-object  ambiguities) 

This  subroutine  removes  ambiguities  arising  from  image  points 
having  other  image  points  as  object  points,  and  also  sets  the  image 
points  associated  with  special  points. 

If  the  grid  is  comprised  of  only  a  single  block,  SSDW  or  CCDW  is 
first  called  to  write  the  block  on  file  or  in  the  core  storage  array. 
This  is  necessary  since  the  TYPE  array  is  read  from  the  storage  during 
the  removal  of  ambiguities  as  discussed  below. 

Since  it  will  often  be  the  case  that  image  points  only  occur  on  the 
block  sides  and  surrounding  layers,  the  interior  of  a  block  is  skipped 
in  the  assignment  of  values  at  image  points  unless  there  is  an  image 
point  in  the  interior.  Therefore  a  loop  over  all  blocks  is  made  first, 
searching  for  image  points  in  the  Interior.  The  presence  of  such  inte¬ 
rior  image  points  is  Indicated  by  setting  IMGF  to  1  for  the  block  in 
question.  This  value  is  used  by  subroutine  LIM  to  set  up  the  loops  over 
image  points  used  in  this  routine. 

Special  Points 

Blocks  to  be  searched  for  special  points  are  placed  in  core  by  a 
call  to  SSD  with  the  argument  B  ( in  a  loop  over  all  blocks),  while 
blocks  containing  image  points  of  the  special  points  are  placed  in  core 
by  a  call  with  argument  IB. 
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In  each  block  a  set  of  four  nested  loops  over  all  points  searches 
for  points  with  TYPE  equal  to  "FIELD"  or  "AVERAGE"  for  which  a  non-zero 
entry  appears  for  the  block  number  in  the  array  IMAGE.  Since  only 
points  having  TYPE-" IMAGE" ,  i.e.,  image  points,  should  have  such  a 
non-zero  entry  in  IMAGE  (IMAGE  is  defaulted  to  zero),  it  follows  that 
the  point  in  question  must  have  been  an  image  point  which  had  its 
designation  changed  to  make  it  a  special  point.  Since  the  Cartesian 
coordinates  at  such  special  points  are  to  be  calculated  by  the  grid 
generation  system,  the  object  point  of  this  erstwhile  image  point  is 
changed  to  an  image  point  with  the  now  special  point  as  its  object. 

Ambiguities 

It  is  possible  during  the  input  phase  to  have  the  object  point  of 
an  Image  point  become  the  image  of  some  other  object  point.  For  in¬ 
stance  if  the  right  side  of  block  1  in  the  figure  below  is  declared  an 
object  section  of  the  left  side  of  block  2  (object  points  are  circles 
and  images  are  squares  on  the  diagram); 


physical  region 


and  later  in  the  input  the  top  side  of  block  3  is  made  the  object  of  the 
bottom  side  of  block  1: 


then  the  lower-right  corner  point  of  block  1,  which  is  the  object  point 
for  the  lower-left  corner  image  point  of  block  2,  has  become  an  image 
point.  Since  the  grid  generation  system  is  to  operate  only  once  at 
coincident  points,  the  upper-right  corner  point  of  block  3  must  be  made 
the  object  point  of  both  of  these  image  points. 

Therefore,  a  set  of  loops  sweeps  all  points  in,  and  on  the  sur¬ 
rounding  layers  of,  all  blocks,  searching  for  points  with  TYPE=" IMAGE" 
(i.e.,  image  points)  for  which  the  object  point  also  has  TYPE="IMAGE" . 
Since  this  means  that  the  object  point  of  the  point  in  question  is 

itself  the  image  of  some  other  object  point,  the  object  of  the  point  in 
question  is  reset  to  this  latter  object  point.  The  end  result  of  this 
is  that,  although  a  single  point  may  be  the  object  of  several  image 
points,  no  image  point  will  have  another  image  as  its  object  and  no 

coincident  points  will  appear  as  "FIELD"  points  in  more  than  one  place 
in  computational  space. 

In  this  removal  of  ambiguities,  a  block  to  be  searched  is  placed  in 
core  by  a  call  to  SSD  with  the  argument  IB  in  a  loop  over  all  blocks. 

Subroutine  SETIMG  is  then  called  to  first  sort  the  blocks  containing 
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object  points  of  Image  points  in  the  present  block.  All  the  object 
points  in  one  block  are  considered  before  proceeding  to  the  next.  For 
each  IMAGE  point  found,  SSD3  or  CCD2  is  called  with  argument  B  to  read 
the  TYPE  array  for  the  block  containing  the  object  point  into  the  array 
NTYPE  if  this  block  (B)  is  different  from  that  (LASTB)  containing  the 
object  point  of  the  previous  image  point  treated.  If  the  object  point 
is  an  image  point,  i.e.,  if  MTYPE-" IMAGE"  for  the  object  point,  then  the 
block  number  B  is  saved  as  IIB,  and  SSD  is  called  with  argument  IIB  to 
place  the  block  containing  this  object  point  in  core.  Then  B  is  reset 
to  the  block  number  of  the  block  containing  the  object  of  this  object 
point,  and  33D3  or  CCD2  is  called  with  B  to  read  the  TYPE  array  for  this 
last  block  into  NTYPE.  If  NTYPE  for  this  second  object  point  is  equal 
to  "IMAGE"  then  Still  another  object  point  is  obtained  in  the  same 
manner.  When  an  object  point  is  reached  for  which  NTYPE  is  not  equal  to 
"IMAGE",  SSD  is  called  again  with  argument  IB  to  place  the  original 
block  being  searched  back  into  core  (the  signal  for  such  being  given  by 
NEWTYP  =  1).  Finally,  the  values  in  the  IMAGE  array  for  the  original 
image  point  are  changed  to  make  this  last  object  point  the  object  point 
of  that  image  point. 

Before  returning,  BLKCON  is  called  for  each  block  to  check  for  pos¬ 
sible  loss  of  derivative  continuity  between  blocks  if  such  has  been 
called  for. 
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Point  Classification  Check  and  Sort 

The  routine  calls  CHKTYP  for  each  block  to  check  for  "FIELD"  points 
that  are  adjacent  to  "OUT"  points,  stopping  if  any  are  found.  Subrou¬ 
tine  FIXIMG  is  called  to  reclassify  image  points  connected  to  "OUT" 
points  as  "OUT"  points,  and  then  to  reclassify  image  points  connected  to 
anything  other  than  "FIELD"  points  as  "FIX"  points.  Subroutine  SETIMG 
is  then  called  to  sort  the  image  points  for  each  block  into  groups 
having  object  points  in  a  single  block. 

4.  SUBROUTINE  FIXIMG  (Reclassification  of  image  points) 

This  subroutine  checks  a  block  for  image  points  that  have  other 
image  points  as  object  points,  reclassifies  image  points  having  "OUT" 
points  as  object  points  as  "OUT"  also.  This  routine  uses  the  arrays  in 
COMMON/ FIELD/  and  hence  refers  to  point  locations  through  the  index 
array  NX  as  does  the  main  program. 

The  routine  functions  as  does  subroutine  IMGPTS,  but  reads  the 
array  TYPE,  instead  of  R,  from  storage  into  the  array  NTYPE,  instead  of 
RAD,  by  calling  either  SSD3  or  CCD2.  Also  the  changes  discussed  above 
are  made  in  TYPE  for  the  block  Indicated  by  the  argument  IB,  Instead  of 
setting  values  in  R.  Points  that  have  "IMAGE"  or  "OUT"  points  as  ob¬ 
jects  are  checked  for  adjacent  "FIELD"  points,  and  the  code  stops  if  any 
are  found. 
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SUBROUTINE  IMGPTS  (Cartesian  coordinate  values  at  image  points) 

This  subroutine  sets  values  of  the  Cartesian  coordinates  at  image 
points  equal  to  the  values  at  corresponding  object  points.  This  routine 
uses  the  arrays  in  COMMON/FIELD/  and  hence  refers  to  point  locations 
through  the  index  arrays  NX  as  does  the  main  program. 

For  a  single  block  case  (BMAX=1),  the  routine  first  writes  the 
block  to  stc^age  by  calling  either  SSDW  or  CCDW.  This  is  necessary 
because  th.e  Cartesian  coordinate  values  for  the  object  points  must  be 
read  from  storage  as  explained  below. 

The  key  arrays  involved  in  the  image-object  point  correspondence 
here  are  LINK,  LINL,  and  LINE,  which  are  set  by  subroutine  SETIMC,  and 
are  explained  for  that  subroutine.  The  image  points  for  the  block  have 
been  sorted  so  that  all  those  having  object  points  in  a  single  block  are 
together  in  order  to  minimize  the  necessary  accesses  to  storage. 

The  routine  makes  a  loop  over  all  blocks  containing  object  points 
associated  with  image  points  in  the  block  indicated  by  the  argument  IB. 
The  object  block  number  is  obtained  from  the  array  LINK,  with  the  first 
subscript  0,  for  the  first  image  point  in  each  group  (from  LINL),  and 
the  Cartesian  coordinate  array,  R,  for  this  block  is  read  into  the  array 
RAD  by  caUing  either  SSD1  or  CCD1.  The  curvilinear  coordinates  of  the 
image  point  ( IC1 , IC2 , IC3 ) ,  and  those  of  the  corresponding  object  point 
(C ( 1 ) ,C( 2 ) , C ( 3  ) )  I  are  obtained  from  the  array  LINK,  and  the  values  for 
the  Cartesian  coordinates  in  RAD  for  the  object  point  are  placed  in  R 
for  the  imago  point. 
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6.  SUBROUTINE  SETIMR  (Cartesian  coordinate  values  at  boundary  points) 

This  routine  sets  the  Cartesian  coordinate  values  at  image  points 
equal  to  the  current  values  at  the  corresponding  object  points  if  the 
argument  MS  is  not  0,  and  sets  values  at  Neumann  and  reflective  bounda¬ 
ries,  special  points,  and  on  the  adjacent  layers  for  the  2D  mode  in  any 
case.  If  BMAX  is  1,  either  SSDW  or  CCDW  is  first  called  to  write  the 
single  block  on  storage.  This  Is  necessary  because  values  from  the 
object  block  are  read  from  storage  as  discussed  below. 

Average  Points 

In  the  setting  of  values  at  the  special  points  designated  as  AVER¬ 
AGE  points,  a  loop  is  made  over  all  blocks,  each  being  placed  in  core 
by  a  call  to  SSD  with  argument  B.  The  block  is  searched  for  AVERAGE 
points,  and  the  surrounding  FIELD  points  in  the  block  are  found  and 
■■  corded  in  the  arrays  P  and  RAD  for  each  AVERAGE  point.  Then  a  second 
loop  is  made  over  all  blocks,  each  being  placed  in  core  by  a  call  to 
SSD  with  argument  IB.  The  block  here  is  searched  for  IMAGE  points 
having  AVERAGE  points  as  objects.  For  each  such  IMAGE  point,  the  block 
containing  the  object  point  is  placed  in  core  by  calling  SSD  with  argu¬ 
ment  B.  If  the  object  point  is  an  AVERAGE  point,  SSD  is  called  with 
argument  IB  to  place  the  block  containing  the  image  point  back  in  core. 
The  FIELD  points  surrounding  this  image  point  are  then  located,  and  SSD 
is  called  with  argument  B  to  place  the  block  containing  the  AVERAGE 
point  back  in  core  so  that  these  surrounding  points  can  bo  added  to 
those  already  found  for  this  AVERAGE  point. 
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Here  3SD1  or  CCD1  is  called  to  read  the  coordinate  array  R  into  the 
array  SPACE  for  block  IB.  The  surrounding  points  are  then  recorded  in 
the  arrays  P  and  RAD  for  block  B.  A  final  loop  over  all  blocks  is  made 
to  set  the  values  at  the  AVERAGE  points  as  the  average  of  those  at  the 
surrounding  FIELD  points. 

At  each  point  having  TYPE  equal  to  AVERAGE,  the  value  at  the  point 
in  question  is  set  equal  to  the  average  of  the  values  at  each  of  the  28 
surrounding  points  (8  in  2D)  that  has  TYPE  equal  to  either,  FIELD  or 
IMAGE.  At  such  IMAGE  points  the  location  of  the  corresponding  object 
point  is  obtained  from  the  IMAGE  array,  and  it  is  the  value  at  this 
object  point  that  is  used  in  the  average.  If  WEIGHT="YES"  the  Jacobian 
/g,  i.e.,  the  cell  volume,  is  calculated  at  each  point  from 

VOL  =  /g  »  (r  X  r  )  •  r 

'5  '5  'C 

and  is  multiplied  by  the  value  in  the  formation  of  the  average.  Here  the 
field  arrays  RAD  and  P  are  used  as  dummy  arrays  to  accumulate  the 
average  and  the  number  of  points,  or  the  volume  increments,  contributing 
thereto,  for  each  FIELD  point  as  the  field  is  swept.  The  field  is  then 
swept  a  second  time  setting  the  values  to  the  average. 

Image  Points 

For  the  setting  of  values  at  the  IMAGE  points,  a  loop  is  made  over 
all  blocks,  each  being  placed  in  core  by  a  call  to  SSD  with  argument  IB. 
The  image  points  in  the  block  are  swept  in  groups  having  object  points 
in  a  single  block  in  order  to  minimize  the  accesses  to  storage,  using 
the  LINK  array  that  is  set  up  by  subroutine  SETIMG,  as  is  described  for 


153 


subroutine  IMGPTS •  The  value  in  R  at  the  image  point  is  set  to  that  in 
R  (read  into  RAD)  at  the  object  point.  Here  ,IC2,IC3  identify  the 
image  point,  while  B ,C( 1 ) ,C(2) ,C(3 )  identify  the  corresponding  object 
point.  The  array  R  for  the  object  block  is  read  into  RAD  by  calling 
SSD1  or  CCD1 . 

Other  Points 

Finally,  loops  are  made  over  all  blocks  calling  NEUPTS  for  blocks 
containing  Neumann  points,  and  REFPTS  for  blocks  containing  reflective 
points,  to  set  values  at  such  points.  In  the  2D  mode,  i.e.,  if  CMAX(3,B) 
is  1 ,  R2DPTS  is  then  called  for  each  block  to  set  values  on  the  adjacent 
layers. 

7.  SUBROUTINE  SETIMP  (sets  values  of  control  functions  at  image  points) 

This  routine  sets  the  values  of  the  control  functions  at  image 
points  equal  to  values  determined  from  the  corresponding  object  and  also 
sets  values  at  other  boundary  points.  Since  only  the  control  functions 
at  FIELD  points  are  involved  in  the  generation  system,  this  routine  is 
only  necessary  because  the  control  functions  may  be  smoothed.  If  BMAX 
is  1 ,  either  SSDW  or  CCDW  is  first  called  to  write  the  single  block  on 
storage.  This  is  necessary  because  values  for  the  object  block  are  read 
from  storage  as  discussed  below. 

Subroutine  DEFCON  is  first  called  for  each  block  to  default  the 
control  functions  to  "NONE"  at  all  non-field  points  so  that  a  check  can 
be  made  for  unset  necessary  values  after  all  control  functions  have  been 
set. 
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Average  Points 


In  the  setting  of  values  at  special  points  designated  as  AVERAGE 
points,  a  loop  is  made  over  all  blocks,  each  of  which  is  placed  in  core 
by  a  call  to  SSD  with  argument  B.  The  routine  AVGCON  is  then  called  to 
set  the  value. 

Image  Points 

For  the  setting  of  values  at  IMAGE  points,  a  loop  is  made  over  all 
blocks,  each  of  which  is  placed  in  core  by  a  call  to  SSD  with  argument 
IB.  The  image  points  in  the  block  are  swept  in  groups  having  object 
points  in  a  single  block  in  order  to  minimize  the  accesses  to  storage, 
using  the  LINK  array  that  is  set  up  by  subroutine  SETIMG,  as  is  de¬ 
scribed  for  subroutine  IMGPTS.  For  each  object  block,  SSD3  or  CCD3  is 
called  witti  argument  B  to  read  the  coordinate  array  R,  the  control 
function  array  P,  and  the  type  array  TYPE  into  the  arrays  RAD,  SPACE, 
and  ITYPE  respectively. 

For  IMAGE  points,  account  must  be  taken  of  the  fact  that  the  curvi¬ 
linear  coordinate  direction,  and  even  the  species  thereof,  may  change  on 
a  grid  line  passing  from  one  block  into  another,  so  that  the  control 
functions  at  image  points  cannot  simply  be  set  equal  to  those  at  the 
corresponding  object  points.  This  is  handled  by  defining  a  set  of  unit 
tangents  to  the  curvilinear  coordinate  lines  at  the  image  points,  these 
tangents  being  evaluated  by  central  differences  wherever  possible  and 
by  one-sided  differences  otherwise.  These  tangents  are  placed  in  the 
array  DRI(3,3),  where  the  first  subscript  ideritifies  the  component  and 
the  second  the  curvilinear  direction,  i.e.. 
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DRI(J.I)  -  (r  ) 

The  corresponding  object  point  is  located  through  the  IMAGE  array  in  the 
usual  manner,  and  a  similar  set  of  tangents  is  defined  there  and  placed 
in  the  array  DR(3,3).  The  dot  products  of  these  two  sets  of  tangents  are 
then  formed  and  placed  in  the  array  DOT(3,3)  as 

3 

DOTd.J)  =  I  DRKk.I)  »  DR(k,J) 
k-1 

Each  non-zero  element  of  DOT  is  then  normalized  to  unit  magnitude, 
retaining  the  sign.  The  values  of  the  three  control  functions  at  the 
image  point  are  then  set  from  the  values  at  the  object  point  as 

p image  _  J  DOT(i,j)  i-1  ,2,3 

j  =  1  ^ 

As  an  example,  consider  the  situation  diagrammed  below: 
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Reflective  Points 

Values  at  REFLECT  points  are  set  in  a  loop  over  all  blocks,  with 
each  being  placed  in  core  by  a  call  to  SSD  with  argument  B  and  the 
values  set  by  a  call  to  REFCON  for  each  block  that  contains  reflective 
points. 

Other  Boundary  Points 

Finally,  a  loop  is  made  over  all  blocks,  each  being  placed  in  core 
by  a  call  to  SSD  with  argument  B,  setting  the  values  at  fixed,  Neumann, 
and  orthogonal  points  by  calling  BONCON.  If  the  integer  argument  CONCUT 
is  equal  to  "AVERAGE",  subroutine  CUTCON  is  also  called  to  set  the 
values  at  image  points  on  cuts  to  averages  across  the  cut.  A  second  pass 
is  then  made  through  the  IMAGE  and  REFLECT  points  in  order  to  reset 
those  that  correspond  to  the  types  of  points  set  in  BONCON. 
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8.  SUBROUTINE  TRANS  (tranafinite  interpolation) 

This  subroutine  determines  values  in  a  section  identified  by  BLOCK, 
START,  and  END  by  transfinite  Interpolation  from  the  section  boundaries. 
The  required  values  on  the  section  boundaries  must  have  been  set  before 
this  routine  is  called.  (The  theory  of  transfinite  interpolation  is 
discussed  in  Appendix  A.) 

Arrays 

In  this  routine  the  section  boundary,  and  the  first  and  cross  de¬ 
rivatives  thereon,  are  in  the  array 

RB(3,0; 1 ,0: 1 ,0; 1 ,DMRB) 

where  the  first  subscript  is  the  component,  the  next  three  subscripts 
Identify  the  derivative,  e.g.,  0,0,0  for  these  three  subscripts  indi¬ 
cates  the  point  itself  c:  while  1,0,0  indicates  the  derivative  c  i; 

K 

0,1,0  the  derivative  c  ■,!  and  1,1,0  the  cross-derivati ve  c  i  o;  etc.  The 
position  on  the  section  boundary  is  given  by  the  last  subscript,  the 
value  of  which  comes  from  the  array 

NDXRBCDIMI,  DIM2,  DIM3) 

Thus  r  and  its  derivatives  at  a  point  with  curvilinear  coordinates  i,j,k 
are  in  RB  with  the  last  subscript  as  NDXRB(  i ,  j ,  k) .  The  array  NDXRB  is 
equivalenced  with  TYPE  in  the  main  code.  The  array  LDXRB  is  the  same  as 
NDXRB,  but  is  equivalenced  with  ACC  in  MAIN. 

The  blending  functions,  which  are  needed  at  every  point  in  the  sec¬ 
tion,  are  in  the  array 
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BLEN(3,  0:1,  0:1,  DIM1  ,  DIM2,  DIM3) 

where  the  first  subscript  Identifies  the  interpolation  direction  and  the 
last  three  give  the  position  in  the  section.  The  second  subscript  is  0 
for  Lagrange  interpolation  and  1  for  Hermite,  and  the  third  is  0  for  the 
lower  end  of  the  interpolation  line  and  1  for  the  upper.  This  array  is 
equivalenced  with  P  in  MAIN,  and  extends  over  P,  SPACE,  RAD,  and  IMAGE 
in  COMMON/FIELD/.  The  arguments  of  the  blending  function  are  in  the  ar¬ 
ray 

FACIN(3,DIM1 ,DIM2,DIM3) 

where  the  first  subscript  gives  the  component,  and  the  other  three  the 
position  in  the  section.  This  array  is  equivalenced  with  R  in  MAIN. 

For  Hermite  interpolation,  the  off-boundary  spacing  is  in  the  field 

array 

SPAN(SSDB,  IS:DIM1,  IS:DIM2,  IS:DIM3) 
which  is  equivalenced  with  ACC  in  MAIN.  This  spacing  may  have  been  read 
on  input;  otherwise  it  will  be  calculated  in  this  subroutine  by  inter¬ 
polation  from  sides  and  edges. 

For  blending  functions  based  on  arc  length,  the  array 

ARC (3,  0; 1 ,  0; 1 ,  DIM) 

contains  the  normalized  arc  length  on  the  twelve  edges  of  the  section. 
Here  the  first  subscript  identifies  the  curvilinear  coordinate  (1 ,2,  or 
3)  which  varies  along  the  edge,  and  the  next  two  subscripts  identify  one 
of  the  four  such  edges,  e.g.,  with  a  3  for  the  first  subscript,  the  four 
edges  are 
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The  second  and  third  subscripts  correspond  to  the  two  curvilinear  coor¬ 
dinates  that  are  constant  on  the  edge,  in  cyclic  order  with  the  coordi¬ 
nate  varying  on  the  edge,  with  a  0  for  the  lower  side  and  a  1  for  the 
upper.  (Thus  in  the  figure  above,  the  heavily  dashed  edge  has  3,0,0  for 
the  first  three  subscripts.  Values  of  the  second  and  third  subscripts 
are  shown  in  parentheses  for  each  of  the  four  edges  corresponding  to  a 
first  subscript  of  3  in  this  figure.)  The  last  subscript  gives  the  value 
of  the  curvilinear  coordinate  varying  on  the  edge  (e.g.  the  value  of 
in  the  figure  above).  The  parameter  DIM  must  conform  to  the  limit 

DIM  >  max(DIM1 ,DIM2,DIM3) 

and  hence  is  received  as  the  maximum  dimensions  of  the  block. 

The  relative  arc  length  on  the  sides  of  the  section  are  in  the  ar¬ 
ray 

ARS(3,2,0: 1 , DIM, DIM) 

where  the  first  subscript  identifies  the  curvilinear  coordinate  (1,2,  or 
3)  that  is  constant  on  the  side,  and  the  third  subscript  identifies  the 
lower  (0)  and  upper  (1)  side  on  which  that  coordinate  is  constant,  e.g., 
with  2  for  the  first  subscript  the  two  associated  sides  are  as  shown 
below: 
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The  second  subscript  corresponds  to  the  two  curvilinear  coordinates  that 
vary  on  the  side,  in  cyclic  order  with  the  constant  coordinate,  with  1 
corresponding  to  the  first  coordinate  and  2  corresponding  to  the  other. 
The  last  two  subscripts  give  the  values  of  these  two  coordinates  on  the 
side. 

This  array  is  equivalenced  with  P  in  MAIN,  and  may  span  P,  SPACE, 
RAD,  IMAGE, ACC,  and  TYPE  in  COMMON/ FIELD/ .  This  equivalence  imposes 
another  limit  on  DIM  since  it  must  be  that 

12«DIM*DIM  S  15*DIMT 

The  equivalence  used  in  this  subroutine  is  merely  to  save  storage,  and 
therefore  these  limits  could  be  obviated  simply  by  removing  the  equiva¬ 
lence  in  MAIN.  This  limit  is  checked  in  MAIN. 

Finally  the  quantity  to  be  Interpolated  is  received  in  the  argument 
f ield  array 

F(3,SSDB,IS;DIM1 ,IS:DIM2,IS:DIM3) 

This  array  will  contain  either  the  three  Cartesian  coordinates  or  the 
three  control  functions. 
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Setup 


Because  of  the  equivalences  used,  it  is  necessary  to  preserve  the 
arrays  in  COMMON/FIELD/,  and,  to  this  end,  file  7  is  rewound  and  the 
arrays  F  and  TYPE  are  written  thereto,  followed  by  a  separate  rite  of  R, 
and  then  by  the  arrays  R  ,P, SPACE, RAD, IMAGE,  and  ACC  on  another  separate 
write.  The  interpolation  parameters  PROJ , PROF .BLEND ,  and  PROTYP  are 
also  written  on  file  7. 

The  routine  then  sets  PROF(i)  to  0,  1,  2,  or  3  according  to  whether 
the  interpolation  form  is  specified  as  "LAGRANGE",  "HERMITE1",  "HER- 
MITE2",  or  "HERMITE"  in  the  direction  i,  for  i=1 ,  2,  and  3.  The  values 
in  START  and  END  are  then  interchanged,  if  necessary,  so  that  all  the 
entries  in  END  are  not  less  than  the  corresponding  entries  in  START, 
with  the  result  that  the  corners  defining  the  section  are  set  as  fol¬ 
lows: 


END 


The  counter  NRS  is  set  equal  to  the  number  of  components  to  be  interpo¬ 
lated. 

The  routine  then  determines  if  the  section  is  a  volume,  surface,  or 
line  by  checking  to  see  how  many  entries  of  END  are  equal  to  the  corre¬ 
sponding  entries  of  START.  Two  such  equalities  indicate  a  line,  one  a 
surface,  and  none  a  volume.  The  dimensionality  of  the  section  is  placed 
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In  the  integer  DIMOLD,  and  the  curvilinear  directions  for  which  END  is 
not  equal  to  START  are  recorded  in  the  array  DIR (3)  as  they  are  found. 
The  integer  SAM  is  one  greater  than  DIMOLD . 

The  curvilinear  directions  in  which  the  interpolation  is  to  be  done 
will  have  been  specified  in  the  array  PR0DIR(3),  which  is  equivalenced 
with  the  array  PR0J(3)  for  transfer  to  TRANS.  If  the  first  entry  in 
PROJ  is  zero,  TRANS  defaults  the  interpolation  directions  to  all  that 
are  allowed  by  the  dimensionality  of  the  section.  Thus  if  the  section 
is  a  line,  the  first  entry  of  PROJ  is  reset  to  the  first  entry  in  DIR, 
the  other  two  entries  are  set  to  zero,  and  PROTYP  is  set  to  "FACES". 
This  gives  interpolation  between  the  two  ends  of  the  line.  If  the  sec¬ 
tion  is  a  surface  then  if  PROTYP-" FACES"  the  first  two  entries  of  PROJ 
are  set  to  the  first  two  of  DIR  and  the  other  entry  is  set  to  zero. 
This  gives  interpolation  from  all  of  the  surface  boundary.  If,  however, 
PROTYP  is  equal  to  "EDGES"  or  "CORNERS",  then  the  first  entry  in  PROJ 
is  set  to  the  curvilinear  direction  off  the  surface,  giving  interpolati¬ 
on  from  the  four  corners  of  the  surface. 

For  interpolation  for  the  Cartesian  coordinates,  after  setting 
LUS(1 )  to  0,  each  interpolation  direction  is  checked  for  completeness 
of  the  required  values  on  the  section  boundaries.  If  missing  values 
are  detected,  i.e.,  if  "NONE"  is  found  in  the  Cartesian  coordinate  ar¬ 
ray  at  a  required  boundary  point,  and  LUS(2)  has  not  been  set  to  -1 
indicating  an  unresolvable  situation,  LUS(1 )  is  set  to  the  direction 
involved  and  LUS(2)  is  set  to  0  or  1  to  indicate  whether  the  deficiency 
is  on  the  lower  or  upper  boundary  in  that  direction.  The  routine  then 
returns  to  the  main  program  for  an  attempt  at  interpolation  of  lesser 
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dimensionality  to  supply  the  needed  values.  If  LUS(2)  has  been  set  to 
-1 ,  and  missing  values  are  detected,  the  code  stops,  having  failed  to  be 
able  to  supply  the  needed  values. 

Arc  Length 


For  each  curvilinear  direction,  i,  for  which  the  blending  functions 
are  to  be  based  on  arc  length  (BLEND ( 1 )=” ARC" ) ,  the  relative  arc  length 
distributions  are  calculated  on  the  four  edges,  and  on  the  four  sides, 
of  a  section  on  which  varies.  These  are  placed  in  the  arrays  ARC  and 
ARS,  res pec  ively,  as  has  been  described  above: 


ARC 


ARS 


The  arc  length  (actually  chord  length)  increments  on  the  four  edges  are 
calculated  as 

ds  =  |drj 

along  the  edge  in  question  from  the  Cartesian  coordinates  of  the  points 
given  in  the  array  R,  and  are  placed  in  the  array 

DAR(0: 1 ,0: 1 ,DIM) 
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where  the  first  two  subscripts  Identify  the  edge,  with  0  and  1  corre¬ 
sponding  to  the  lower  and  upper  limits  of  the  two  curvilinear  coordi¬ 
nates  that  are  cyclic  with  the  one  varying  on  the  edge,  e.g.,  with  i,J,k 
cyclic: 


The  last  subscript  gives  the  value  of  the  coordinate  varying  on  the 
edge,  i.e.,  the  position  on  the  edge.  These  increments  are  added  in 
separate  loops,  in  the  interest  of  vectorization,  to  produce  the  arc 
length  in  the  array 

ARC(3, 0:1,0: 1 ,DIM) 

where  the  first  subscript  gives  the  direction  along  the  edge,  i,  and  the 
other  three  correspond  to  those  of  DAR. 

If  the  section  Is  three-dimensional,  the  arc  length  on  the  sides  on 
which  varies  is  calculated  similarly,  with  the  increments  being  again 
placed  in  DAR,  but  now  with  the  first  subscript  identifying  the  lower 
and  upper  side  and  the  second  being  0.  (DAR  is  used  separately  for  the 
two  surfaces  on  which  each  of  the  two  directions  are  cyclic  with  direc¬ 
tion  1.)  These  Increments  are  added  and  placed  in  the  array 

ARS(3,2,0: 1 , DIM, DIM) 
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with  the  first  subscript  giving  the  direction  along  which  the  arc  is 


taken,  i;  the  second  and  third  Identifying  the  aide  by  giving  the  coor¬ 
dinate,  in  cyclic  order  with  i,  that  is  constant  on  the  side  (second) 
and  designating  the  upper  and  lower  sides  for  that  direction  as  0  and  1 
(third) ; 


These  arc  lengths  are  then  examined  for  zero  values,  e.g.  on  polar 
axes,  etc.  If  the  arc  length  is  found  to  be  zero  on  all  four  edges,  the 
blending  fun'  tion  for  the  i  direction  is  simply  reset  to  "LINEAR". 

For  a  three-dimensional  section,  if  the  arc  length  on  edge  0,0, 
which  lies  between  side  1 ,0  and  side  2,0: 
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Is  zero,  the  arc  lengths  on  this  edge  are  reset  to  the  average  between 
the  non-zero  values  at  the  first  line  in  the  direction  of  the  edge  on 
each  of  the  adjacent  sides.  For  a  two-dimensional  section,  the  arc 
lengths  on  the  edge  are  reset  to  the  values  on  the  opposite  edge: 


This  procedure  is  followed  for  all  four  edges  in  the  direction  i. 

For  a  three-dimensional  section,  zero  arc  lengths  on  the  sides  are 
replaced  with  linearly  interpolated  values  between  the  two  edges  bor¬ 
dering  the  side; 


This  is  done  on  all  four  sides  on  which  i  varies,  after  all  twelve  edges 
of  the  section  have  been  done. 

Finally  all  of  the  arc  lengths  are  converted  to  relative  values  by 
division  by  the  total  arc  length  on  each,  the  total  arc  having  been 
stored  beforehand  in  the  array 

TARC(3,0: 1,0:1) 
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for  the  edges  and  in  the  array 

TARS(3,2,0: 1,DIM) 

for  the  sides.  The  subscripts  In  each  of  these  correspond  to  all  but  the 
last  subscript  in  ARC  and  ARS,  respectively.  Several  separate  loops  are 
used  here  in  the  interest  of  vectorization. 

All  of  the  above  procedures  are  repeated  for  each  direction  for 
which  BLEND  is  equal  to  "ARC". 

Index  Array 

The  index  array, 

NDXRB(DIM1 ,DIM2,DIM3) 

gives  the  value  of  the  last  subscript  in  the  section  boundary  array,  RB, 
corresponding  to  a  position  specified  by  the  three  curvilinear  coordi¬ 
nates  of  a  point  on  the  boundary.  The  bottom  of  the  section  boundary 


is  swept  first,  with  varying  faster,  placing  successively  incremented 
values  in  NDXRB.  In  three  dimensions,  at  each  successive  value  of 

p 

the  line  of  points  on  the  lower  C  side  are  added  next, 
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Finally  the  points  on  the  top  side  are  added,  again  with  running 
faster: 


Boundary  Array 

The  section  boundary  array 

RB(3.0:1,0:1,0:1,DMRB) 

in  which  the  first  subscript  gives  the  component,  and  the  next  three 
identify  the  function  and  its  first  and  cross  derivatives,  is  filled 
next.  The  last  subscript  identifies  the  location  on  the  boundary  and  is 
that  given  by  the  index  array  IDXRB. 

If  the  Interpolation  is  for  the  control  functions,  the  argument 
function  F,  containing  the  quantity  to  be  interpolated,  is  read  into  R 
from  file  7  after  rewinding.  Thus  the  array  R  now  contains  the  quantity 
to  be  interpolated  in  any  case. 

The  points  on  the  section  boundary  are  placed  in  RB,  with  the  sec¬ 
ond-fourth  subscripts  as  0,0,0.  For  each  curvilinear  direction,  i,  in 
which  interpolation  is  to  be  done,  the  two  sides  on  which  is  constant 
are  swept,  placing  the  Cartesian  coordinates  of  each  point  on  these 
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sides  from  the  array  R  into  the  array  RB.  This  is  done  with  the  curvi¬ 
linear  coordinate  on  the  longer  side  of  the  section  varying  faster,  in 
the  interest  of  vectorization. 

If  the  interpolation  is  Hermite,  the  off-surface  first  derivatives 
on  the  sides  of  the  section  boundary 


are  calculated  and  placed  in  RB  with  the  second-fourth  subscripts  there¬ 
in  as  1,0,0  for  c  0,1,0  for  c  oi  and  0,0,1  for  c  ■s-  For  each  curvi- 
linear  direction,  i,  in  which  interpolation  is  to  be  done,  the  two  sides 
on  which  is  constant  are  swept.  At  each  point  on  the  surface,  the 
tangents,  r  .  and  c  l-.  and  normal,  C  i  x  c  i,»  are  calculated,  with  i,j,k 

c  r  C 

cyclic,  using  central  differences  in  the  two  directions  on  the  surface. 
The  square  of  the  magnitude  of  the  normal  is  placed  in  DN.  For  blending 
functions  based  on  arc  length,  the  off-boundary  spacing  for  the  Hermite 
interpolation  is  (see  Appendix  A) 
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where  As  is  the  off- boundary  spacing,  Aa  is  the  local  relative  arc 
length  increment,  and  q  is  the  surface  unit  normal.  The  off-boundary 
spacing,  As,  either  has  been  set  in  the  field  array  SPAN  or  will  be 
taken  as  the  arc  length  Increment,  AAa,  when  A  is  the  local  total  arc 
length,  in  which  case 

r^  -  A  n 

For  linear  blending  functions,  the  off-boundary  spacing,  As,  must  have 
been  specified  in  SPAN  and  we  have 

r^  -  IAS  n 

where  I  is  the  total  number  of  points  in  the  interpolation  direction. 

In  the  case  of  arc  blending  functions  with  specified  spacing,  the 
local  arc  length  increment,  Aa,  is  determined  by  transflnite  interpola¬ 
tion  of  one  degree  less  than  that  for  the  section,  using  arc  the  type  of 
blending  functions  specified  for  the  two  directions  on  the  side.  In 
three  dimensions  this  interpolation  then  is  as  shown  below: 


Then  in  two  dimensions  we  have 
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ARC 


The  interpolation  fractions  for  linear  blending  functions  on  the 
surface  are  (Appendix  A) 

“  CMAX(B,J)  -  1 '  “  CMAX(B,K)  -  1 

and  for  arc  blending  functions  on  the  surface  are  themselves  interpo¬ 
lated  from  two  opposing  edges  on  the  surface: 


This  Interpolation  for  the  local  relative  arc  length  uses  linear  blend¬ 
ing  functions,  of  course.  With  arc  blending  functions  but  unspecified 
spacing,  the  local  total  arc  length,  A,  is  Interpolated  in  the  same  man¬ 
ner  using  TARC  and  TARS. 
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Finally,  multiplication  of  the  appropriate  quantities  by  the  unit 
normal  gives  the  first  derivatives  to  be  placed  in  RB  with  the  second- 
fourth  subscripts  taken  sequentially  from  the  array  ID (3),  where  ID(i)»1 
and  the  other  two  entries  are  zero. 

Hermite  interpolation  also  requires  the  first  and  cross  derivatives 
on  the  section  edges 


if  the  interpolation  is  more  than  one-dimensional.  These  are  calculated 
by  sweeping  all  the  edges  for  which  Hermite  interpolation  is  specified 
in  both  of  the  two  directions  off  the  edge.  For  the  edge  on  which 
varies,  the  tangents  to  the  grid  lines  intersecting  the  edge,  and 

C  1,,  are  calculated  using  one-sided  differences  in  the  two  directions 
off  the  edge. 

For  each  of  the  two  directions  off  the  edge,  if  the  blending  func¬ 
tions  in  the  off-edge  direction  are  based  on  arc  length  then  with  speci¬ 
fied  off- boundary  spacing  the  local  arc  length  increment,  Aa,  is 


interpolated  linearly  between  the  ends  of  the  edge  line: 
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otherwise,  with  unspecified  spacing  it  is  the  local  total  arc  length,  A, 
that  is  interpolated,  using  TARC  Instead  of  ARC. 

The  off-edge  first  derivatives  are  formed  from  the  equations  given 
above  and  are  placed  in  RB  with  the  second-fourth  subscripts  taken  se¬ 
quentially  from  ID  with  ID(j)*1  for  the  derivative  in  the  J  direction 
off  the  edge,  or  ID(k)=1  for  the  other,  with  the  other  two  entries  of  ID 
equal  to  zero  in  each  case. 

The  cross  derivatives  on  the  edge  are  simply  set  to  zero,  these 
values  being  entered  in  RB  with  ID(j)  =  ID(k)  =  1  and  the  other  value 
zero . 

The  third  derivatives,  C  -i  p  T'  corners  of  a  three-dimensional 
section  are  simply  set  to  zero  and  are  placed  in  RB  with  the  second- 
fourth  subscripts  all  equal  to  1. 

Interpolation  Fractions 

The  interpolation  fractions  (range  0-1)  are  set  in  the  entire  sec¬ 
tion  for  use  in  calculating  the  blending  functions.  These  fractions  are 
placed  in  the  array 

FACIN(3,DIM1 ,DIM2,DIM3) 
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where  the  first  subscript  identifies  the  interpolation  direction  and  the 


other  three  give  the  position  in  the  field.  This  array,  and  the  interme¬ 
diate  array  F1(DIM,3),  are  first  filled  with  zeros.  Then  for  each  curvi¬ 
linear  direction  in  which  interpolation  is  to  be  done  the  array  FI  is 
set  to  the  local  point  fraction  at  each  point  in  the  given  direction: 


START 


FI(4  ,i) 


C  -  START(i) 
ENDd)  -  START(i) 


For  each  direction,  say  1,  in  which  interpolation  is  to  be  done  with 
blending  functions  based  on  arc  length,  the  interpolation  fraction  is 
the  relative  arc  length  interpolated  from  the  four  edges  and  four  sides 
on  which  varies  in  a  three-dimensional  section 


or  from  the  two  edges  on  which  varies  in  a  two-dimensional  section: 


ARC 


In  either  case,  the  fractions  used  in  this  interpolation  of  the  arc 
lengths  are  supplied  by  the  array  FI,  and  the  interpolated  arc  lengths 
are  placed  in  FACIN. 

For  linear  blending  functions,  the  values  of  the  interpolation 
fractions  in  FI  are  simply  placed  in  FACIN  directly  for  each  direction 
in  which  interpolation  is  to  be  done. 

Blending  Functions 

The  blending  functions  for  the  type  of  interpolation  specified  are 
calculated  from  the  interpolation  fractions  according  to  the  relations 
given  in  Appendix  A  for  each  direction  in  which  interpolation  is  to  be 
done  and  are  placed  in  the  array 

BLEN(3 ,0; 1 ,0; 1 ,DIM1 ,DIM2,DIM3) 

Here  the  first  subscript  identifies  the  direction,  and  the  last  three 
the  position  in  the  section.  The  second  subscript  is  0  for  Lagrange 
interpolation  and  1  for  Hermlte,  and  the  third  is  0  for  the  former  end 
and  1  for  the  latter. 
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Interpolation 


The  index  array  NDXRB,  which  is  equivalenced  with  TYPE,  is  trans¬ 
ferred  to  the  array  LDXRB  via  file  8,  after  which  TYPE  is  recovered 
from  file  7  after  rewinding.  If  the  Interpolation  is  for  the  radius  of 
curvature,  relative  arc  lengths  in  the  single  interpolation  direction 
are  transferred  from  BLEW  to  ARC,  the  Cartesian  coordinate  array  is  read 
into  RAD  from  file  7,  and  subroutine  TERPR  is  called  to  do  the  interpo¬ 
lation. 

For  all  other  interpolation,  the  array  R,  which  is  to  contain  the 
quantity  to  be  Interpolated,  is  set  to  0  at  all  points  not  designated 
"FIX",  and  the  interpolation  is  done  at  all  points  in  the  section  not 
having  TYPE="FIX",  by  calling  the  appropriate  combination  of  projectors 
for  the  type  of  Interpolation  specified.  The  single  projectors  are 
Invoked  by  a  call  to  TERP1 ,  the  double  products  by  a  call  to  TERP2,  and 
the  triple  product  by  TERP3. 

For  PROTyP="FACES"  the  interpolation  is  from  all  sides  of  the 
section  indicated  by  PROJ.  An  entry  i  in  PROJ  causes  the  pair  of  sides 
on  which  5^  is  constant  to  be  included.  Thus  if  all  three  directions 
are  indicated,  and  the  section  is  a  volume,  this  interpolation  is  from 
all  six  sides 
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and  the  combination  of  projectors  Is  (Appendix  A) 


p  +  p  4.p  _pp  - 
1  ^2  3  12 


pp  -  pp  +  PPP 

2  3  3  1  1  2  3 


while  if  only  the  two  directions  j  and  k  are  indicated,  or  even  if  all 
three  are  indicated  but  the  section  is  a  surface  on  which  is  con¬ 
stant,  the  interpolation  is  from  the  four  sides  on  which  either 
or  is  constant: 


Pj  *  (i.Jik)  cyclic 

With  only  a  single  direction  i  indicated,  or  in  any  case  if  the  section 
is  a  line  on  which  varies,  the  interpolation  is  between  the  two  sides 
on  which  E,^  is  constant 


179 


using  only  the  single  projector  . 

With  PROTYP=" EDGES" ,  the  Interpolation  is  from  only  those  edges  of 
the  section  indicated  by  PROJ.  Here  the  four  edges  on  which  varies 
are  included  for  an  entry  i  in  PROJ.  With  all  three  directions  indi¬ 
cated,  and  the  section  a  volume,  the  interpolation  is  from  all  twelve 
edges 


using  the  combination 


p  P  +  PP  +  PP 

12  2^3  31 


-  2P  P  P 
1  2*^3 


With  only  the  two  directions  i  and  j  entered  in  PROJ,  the  interpolation 
is  from  the  eight  edges  on  which  either  or  vary 
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with  the  combination 


+  P  P  -  P,P-Po 
m  n  12  3 


(j.m.n) 


cyclic 


If  PROJ  contains  only  the  single  entry  i  then  the  interpolation  is  from 
the  four  edges  on  which  varies 


using  only  PjP(^f  (i.Jik)  cyclic. 

If  PROTYP«"CORNERS"  the  interpolation  is  from  the  eight  corners  of 


using  PiP2p3* 

After  the  interpolation,  the  interpolated  array  R  is  written  on 
file  8,  and  then  R,  P,  SPACE,  RAD,  IMAGE,  and  ACC  are  recovered  from 
file  7.  Finally,  the  interpolated  array  on  file  8  is  read  into  the 
appropriate  array, 

9.  SUBROUTINE  TERP1  (single  projector) 

This  subroutine  receives  the  interpolation  array  F,  the  blending 
function  array  BLEN ,  the  index  array  NDXRB,  the  section  boundary  array 
RB,  the  point  type  array  TYPE,  the  number  of  components  to  be  interpo¬ 
lated  NRS,  and  the  projection  direction  N,  as  arguments  and  adds  the 
contribution  from  the  single  projection  to  the  interpolation  array. 

The  array  LF(0:3)  contains  the  limits  for  the  summation  over  the 
forms  of  blending  functions  and  has  the  following  values,  with  PROF  as 
its  argument; 
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Interpolation  Form  PROF  LF 
LAGRANGE  0  0 

HERMITE1  1  1 

HERMITE2  2  1 

HERMITE  3  1 


The  array  LE(2 ,0: 1 ,0: 3)  contains  the  limits  for  the  summations  over 
the  ends  of  the  interpolation  range,  with  the  form  of  the  interpolation, 
i.e.,  PROF,  as  the  last  subscript,  the  summation  index  over  the  blending 
function  forms  as  the  second  subscript,  and  the  limit  identified  by  the 
first  (0  for  the  lower  and  1  for  the  upper).  The  values  are  as  follows; 

Summation  Limits  for  Summation  Limits  for 
Interpolation  Form  PROF  Ist  Blending  Function  2d  Blending  Function 


LAGRANGE 

0 

0,1 

— 

HERMITE1 

1 

0,1 

0,0 

HERMITE2 

2 

0,1 

1 ,1 

HERMITE 

3 

0,1 

0,1 

Here  the  integer  array  CC(0;1,3)  contains  the  values  of  the  curvi¬ 
linear  coordinate  that  is  constant  on  each  of  the  two  sides  of  the 
section  from  which  the  projection  is  made,  with  the  curvilinear  direc¬ 
tion  given  by  the  second  subscript  and  the  side  identified  by  the  first 
(0  for  lower  and  1  for  upper).  The  other  four  entries  in  CC  are  the 
values  of  the  curvilinear  coordinates  that  are  constant  on  the  projec¬ 
tion  line.  Thus,  with  N,  N1 ,  N2,  cyclic, 
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Two  entries  of  this  array  are  set  from  START  and  END,  which  are  received 
through  COMMON/ SEC TN/ ,  while  the  other  four  vary  with  the  projection 
line. 

Each  projection  line  in  the  section  is  swept,  whereupon  for  each 
point  not  classified  as  "FIX",  the  two  summations  given  in  Appendix  A 
(Eq.  A-18)  are  performed  for  each  component  to  be  interpolated,  as 
specified  by  the  array  RS(3)  in  COMMON/SECTN/ ,  adding  the  result  to  the 
interpolation  array,  F. 

10.  SUBROUTINE  TERP2  (double  projector  product) 

This  subroutine  receives  the  interpolation  array  F,  the  blending 
function  array  BLEN,  the  index  array  NDXRB,  the  section  boundary  array 
RB,  the  point  type  array  TYPE,  the  number  of  components  to  be  interpo¬ 
lated  NRS,  and  the  two  directions  in  the  product  N1 ,  N2,  as  arguments 
and  adds  the  contribution  from  the  double  projector  product  to  the 
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interpolation  array.  In  this  routine  the  integer  array  ACY(3,3)  gives 


the  direction  other  than  that  specified  by  two  unequal  arguments,  e.g., 
ACY(1 ,2)=ACY(2,1 )-3.  The  arrays  LF  and  LE  serve  as  described  for  TERP1. 

Here  the  integer  array  CC(0:1,3)  contains  the  value  of  the  curvi¬ 
linear  coordinate  that  is  constant  on  each  of  the  four  sides  of  the 
section  from  which  the  projection  is  made,  with  the  curvilinear  direc¬ 
tion  given  by  the  second  subscript  and  the  side  identified  by  the  first 
(0  for  lower  and  1  for  upper).  The  remaining  two  entries  in  CC  are  both 
set  to  the  value  of  the  curvilinear  coordinate  that  is  constant  on  the 
projection  plane  defined  by  the  product  specified.  Thus,  with  N,  N1,  N2 
cyclic, 


Four  entries  of  this  array  are  set  from  START  and  END,  which  are  re¬ 
ceived  through  COMMON/SECTN/ ,  while  the  other  two  vary  with  the  projec¬ 
tion  planes. 
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Each  projection  plane  in  the  section  is  swept,  whereupon  for  each 


point  not  classified  as  "FIX",  the  four  summations  given  in  Appendix  A 
(Eq.  A-19)  are  performed  for  each  component  to  be  interpolated,  as 
specified  by  the  arrays  RS(3)  in  COMMON/SECTN/ ,  adding  the  result  to 
the  interpolation  array,  F. 

n.  SUBROUTINE  TERP3  (triple  projection  product) 

This  subroutine  receives  the  interpolation  array  F,  the  blending 
function  array  BEEN,  the  index  array  NDXRB,  the  section  boundary  array 
RB,  the  point  type  array  TYPE,  the  number  of  components  to  be  interpo¬ 
lated  NRS,  and  a  sign,  SN,  as  arguments  and  adds  the  contribution  from 
the  triple  projector  product  to  the  Interpolation  array.  (This  contribu¬ 
tion  is  negative  if  SN  is  so.)  The  arrays  LF  and  LE  serve  as  described 
for  TER PI. 

Here  the  integer  array  CC(0;1,3)  contains  the  value  of  the  curvi¬ 
linear  coordinate  that  is  constant  on  each  of  the  six  sides  of  the 
section,  with  the  curvilinear  direction  given  by  the  second  subscript 
and  the  side  Identified  by  the  first  (0  for  lower  and  1  for  upper): 


-  CC(1,3)  -  constant 
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This  array  is  filled  from  START  and  END,  which  are  received  through 
COMMON/SECTN/. 

For  each  point  in  the  section  not  classified  as  "FIX",  the  six 
summations  given  in  Appendix  A  (Eq.  A-20)  are  performed  for  each  compo¬ 
nent  to  be  interpolated  as  specified  by  the  array  RS(3)  in 
COMMON/GECTN/,  adding  the  result  to  the  interpolation  array,  F. 

12.  SUBROUTINE  TERPR 

This  subroutine  calculates  the  radius  of  curvature  for  control 
functions  corresponding  to  CONTYP-" RADIUS"  as  in  Appendix  G.  The  code 
notation  is  as  follows,  with  reference  to  the  appendix: 

RAD  :  p 

RAD1,RAD2  :  .P2 

TAL  :  A 

RADT  :  +  A.  [p^l  +  A 

DEL  :  (5 

SS  ;  3 

SO  :  3^ 

13.  SUBROUTINE  CONSURF  (surface  control  functions,  including  both  arc 

length  and  curvature  contributions) 

This  subroutine  evaluates  the  control  functions  on  a  surface  sec¬ 
tion  identified  by  BLOCK,  START,  and  END,  with  one  pair  of  correspond¬ 
ing  entries  in  START  and  END  being  equal.  These  functions  include  both 
the  arc  length  and  curvature  contributions,  and  thus  can  be  interpolated 
directly  into  the  interior. 
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The  two  control  functions  evaluated  on  the  surface  are  those  in  the 


two  curvilinear  directions  on  the  surface. 


^•»niin  cyclic 


These  are  given  by  the  equation  (Eq.  0-2^4  of  Appendix  C) 


.  _L  (p  -  V  p  ) 
-e" 


m  g, 


*  r 

g  -_n'  '•AA 
^  nn  C  5  C 


^n 

r  -  -  r 

~.m  g  -.n 

(-5 - 

Vm  - 


•  (tr  r  +  K  r  ~  2k  r  ) 
nn  -  ram  ®mm  nran  'piHpn 


with  t.m.n,  cyclic,  and  an  analogous  equation  with  m  and  n  interchanged. 
The  development  of  this  equation  is  given  in  Appendix  C.  Here  I  is  the 
curvilinear  direction  off  the  surface,  and  m  and  n  are  the  two  direc¬ 
tions  on  the  surface.  The  first  term  (involving  the  second  derivative 
off  the  surface)  is  the  contribution  from  the  curvature  of  the  lines 
intersecting  the  surface,  while  the  other  terms  involve  only  derivatives 
on  the  surface  and  represent  the  arc  length  contribution.  Derivatives 
on  the  surface  can,  of  course,  be  evaluated  from  the  point  distribution 
on  the  surface,  so  that  the  arc  length  contribution  can  be  evaluated 
locally: 
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The  curvature  contribution  must,  however,  be  Interpolated  from  the  edges 
of  the  surface  where  the  off-surface  derivatives  can  be  evaluated  on  the 
intersecting  surfaces: 


The  routine  first  determines  a  scale  below  which  values  are  taken 
to  be  zero  as  |Ac|^  x  where  Ac  Is  the  diagonal  of  the  section 

extending  from  START  to  END, 

This  limit  is  used  to  check  the  metric  elements  gj^,^  and  g^j^  which 

appear  as  denominators.  A  zero  for  these  elements  can  only  mean  the 

direction  involved  is  meaningless  because  of  a  reduction  to  two  dimen- 

20 

3 ions,  and  hence  the  denominator  Is  reset  to  10  to  eliminate  the  term 
Involved.  The  form  of  the  limit  follows  from  the  fact  that  g^jp,  »  Ic 

etc.,  meaning  that  cells  with  sides  smaller  than  10~®  times  the  diagonal 
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of  the  section  are  considered  to  be  the  result  of  a  reduction  to  2D. 

This  iidiit  would  have  to  be  changed  if  such  small  cells  really  do  exist. 

2 

The  square  of  this  limit  is  also  used  on  the  denominator  gnmBnn'Kmn* 

The  code  then  determines  which  curvilinear  coordinate  Is  constant 
on  the  surface,  by  checking  for  equality  of  corresponding  entries  in 
START  and  END,  and  makes  this  direction  (i)  the  third  entry  in  the  array 
S(3).  The  other  two  entries  in  S  are  set  to  the  other  two  directions  (m 
and  n),  in  cyclic  order  with  that  in  S(3): 


END 


The  entire  surface  is  then  swept,  calculating  the  control  functions 
at  interior  points  on  the  section  as  follows.  First  all  the  coordinate 
derivatives,  l.e.,  first,  second,  and  cross,  in  the  two  curvilinear 
directions  on  the  surface  are  calculated  by  central  differences  and 
placed  in  the  array  DR (3,0; 3 .0: 3)^ 

DR(k,i,0)  -  (r  .). 

DR(k,i,j)  -  (r  ) 
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with  i  and  j  assuming  both  of  the  curvilinear  directions  on  the  surface, 
i.e.,  the  first  two  entries  in  S,  and  the  component  index,  k,  assuming 
the  values  1  ,2,3.  Then  all  the  dot  products  of  these  first  and  second 
derivatives  in  the  two  directions  on  the  surface  are  placed  in  the 
array  DOT  (3,3.3)  where 

DOT(k,i,j)  =  C^s(k)  *  -^S(i)^S(j) 

with  k,i,J  each  assuming  both  of  the  values  1,2.  The  surface  elements  of 
the  covariant  metric  tensor  are  placed  in  the  array  G(3,3)s 

G(i,J)  -  gs(i),S(j)  ■  '^S(i)  '  '^S(j) 

again  with  i  and  j  assuming  both  of  the  values  1,2. 

The  contribution  to  the  surface  control  functions  from  the  curva¬ 
ture  of  the  coordinate  line  intersecting  the  surface  is  then  determined 
by  calling  subroutine  OFF  (with  OFFTYP-" SURFACE" )  at  the  four  points  on 
the  section  boundary  that  are  opposite  the  point  where  the  functions  are 
being  evaluated,  and  also  at  the  four  corners  of  the  section; 
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In  the  calls  to  OFF,  the  array  CC(3)  contains  the  curvilinear 
coordinates  of  the  point  on  the  section  boundary  at  which  the  curvatlve 
contribution  is  to  be  returned.  The  dot  products 


and 


r 


C  I  £ 
^  r 


H£ 


are  returned  in  CUR(1)  and  CUR(2)  for  the  two  control  functions  through 
COMMON/CONOFF/ .  The  dot  products  for  curvature  contribution  at  the 
point  of  evaluation  of  the  control  functions  are  then  interpolated  from 
the  values  at  these  eight  points  on  the  section  boundary,  by  transfinlte 
interpolation  and  are  placed  in  DOT(i,3.3)  with  i  assuming  the  two 
values  1 ,2. 

The  complete  surface  control  functions  for  the  two  curvilinear 
directions  on  the  surface  are  then  calculated  by  adding  the  curvature 
contribution,  using  DOT(i,3,3)  with  i»1,2,  to  the  arc  length  contribu¬ 
tion  calculated  using  DOT(k,i,J)  with  k,i,J  each  assuming  the  values 
1,2,  implementing  the  equations  given  at  the  beginning  of  this  section. 
In  the  code  notation,  ra»S(1),  n=S(2)  and  £»S(3),  with  the  metric  ele¬ 
ments  written  here  as 


■  %(3).S<3)  ' 


and  the  dot  products  as 


-  m  ’  -  mn  '  -  S(1)  ’  -  S(1)  S(2) 

S  S  ^  VS 

-  D0T(1 ,1 ,2),  etc. 
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and 


(r 


(1) 


~^S(3)^S(3) 


)/|r 


(3) 


-  DOTd  ,3,3),  etc. 


The  former  dot  products  are  the  arc  length  contributions,  while  the 
latter  are  the  curvature  contributions. 

The  equations  for  the  control  functions  then  use  the  following 
notat  ion: 


DEMOM  =  g  g  -  g 

mm  '’nn  mn 


DENOMI  = 


-  g 


nn 


^®nn  ~,m„m  *  ^m  '^n,n 


RHS1  =  r 
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RHS2  *  g  -  RHS1  *  K_ 
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This  routine  sweeps  the  entire  section,  including  the  edges,  calcu¬ 
lating  the  three  elements  of  the  control  functions.  However,  if  no 
Cartesian  coordinates  have  set  on  the  surrounding  layers,  the  control 
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function  will  not  be  evaluated  properly  on  an  edge  on  which  is 
constant,  since  this  requires  a  derivative  across  the  edge.  Therefore, 
each  of  the  four  edges  is  examined  and  values  of  at  "FIX",  "NEUMANM"  , 
"ORTHOG"  and  "AVERAGE"  points  on  the  edges  on  which  is  constant  are 
extrapolated  from  adjacent  points  if  the  value  of  the  first  component  of 
the  Cartesian  coordinate  array  R  is  equal  to  the  default  value,  "NONE", 
at  the  adjacent  point  outside  the  edge. 


The  extrapolation  for  edge  values  is  also  done  at  "IMAGE"  points. 
This  has  no  effect  at  points  imaged  to  "FIELD"  points,  since  then  R  will 
have  a  real  value  outside  the  edge  and  good  control  functions  will  have 
been  calculated  there.  However,  points  imaged  to  non-field  points  such 
as  "FIX",  "ORTHOG",  etc.  must  have  extrapolated  control  functions  since 
none  are  calculated  there. 

If  the  coordinates  have  been  set  at  the  adjacent  exterior  point, 
but  the  coordinates  at  either  this  point  or  at  the  adjacent  interior 
point  are  the  same  as  those  at  the  point  on  the  edge,  then  the  edge  is 
part  of  a  surface  that  corresponds  to  a  polar  axis,  and  consequently  the 
control  functions  there  are  set  to  zero. 
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The  '^ode  uses  the  notation  C(3)  for  the  point  on  the  edge,  IC(3) 
for  the  adjacent  exterior  point,  and  JC(13)  for  the  adjacent  interior 
point : 


•  JC 


The  physical  distances  (squared)  from  the  edge  point  to  the  exterior  and 
interior  point,  respectively,  are  RAX  and  SAX,  and  a  value  of  either  of 
these  less  than  the  square  of  the  inverse  of  the  radius  of  curvature 
scale,  indicates  a  polar  axis. 

If  the  surface  control  functions  are  to  be  smoothed  (SM0C0N="fES"  ) , 
the  control  function  in  each  curvilinear  direction  on  the  surface  is 
smoothed  one-dimensionally  in  the  other  direction  on  the  surface, 
replacing  the  function  at  each  point  by  the  average  of  the  value  there 
and  the  average  of  the  values  at  the  points  on  either  side: 


The  S(3)  component  of  P  Is  used  as  the  dummy  as  the  S(1)  and  S(2)  compo¬ 
nents  are  smoothed  on  the  surface  section. 
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Finally,  subroutine  CONLINE  is  called  on  each  of  the  four  edges  of 


the  section  to  calculate  tVie  remaining  control  functions  at  "FIX", 
"NEUMANN",  and  "ORTHOG"  points  there  as  follows: 


Pm 


This  involves  redefining  START  and  END  to  define  the  edge  to  CONLINF, , 
ind  hence  the  section  values  of  these  quantities  are  saveil  and  am.- 
before  returning. 

't,  SUBROUTINE  OFF  (off-surface  derivatives  for  surface  control  func¬ 
tions) 

This  subroutine  calculates  the  dot  products  for  curvature  contribu¬ 
tion  to  the  surface  control  functions.  It  receives  the  three  curvi¬ 
linear  coordinates  of  a  point  on  an  edge  of  the  surface  section  in  the 
array  CC(3)  through  COMMON/SECTN/ .  The  order  in  which  these  coordinates 
.inpu  ir  in  CC  is  given  by  the  permutation  of  appear  i  tic,  in  tdv  array 

transferred  tiirough  the  same  common.  The  first  two  entries  in  S 
aee  the  two  curvilinear  directions  on  the  surface,  in  cyr’llr  order  with 
the  third,  while  the  third  is  the  direction  off  the  surface: 


19b 


The  coefficients  for  difference  expressions  for  the  first  and 
second  derivatives  are  determined  as  follows: 


,(i) 

^SU(i) 

0 

]su(i)[ 

.(ii) 

0  ”  S1(i) 

whore  the  superscripts  indicate 
where  the  subscripts  are 


SU 

SL 

SI 

control 

1 

-1 

1 

forward 

1 

0 

0 

backwar’d 

0 

-1 

0 

~  ^SL(i) 

+  [SL(i) I 

2f  +  f 

S2(i)  S3(i) 

derivatives  in  the  i  direction,  and 

S2  S3 

0  1 

1  2 

-1  -2 


These  subscripts  are  set  up  as  three-entry  arrays,  and  appropriate 
values  are  entered  for  derivatives  in  each  curvilinear  direction. 

The  code  checks  the  values  of  each  of  the  curvilinear  coordinates 
in  CC  for  equality  with  unity  or  the  corresponding  coordinate  limit  in 
CMAX,  using  forward  differences  in  the  former  case,  backward  in  the 
latter,  and  central  otherwise,  to  form  the  three  first  and  second  coor- 
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dinate  derivatives,  r  ^  and  c  ^  at  the  point.  Central  differences 

'c  C  C 

are  also  used  across  an  edge  when  the  points  on  the  adjacent  surrounding 
layer  are  "IMAGE"  points. 


Here  these  derivatives  are  placed  in  the  arrays  D1(3,3)  and  1)2(3, 3)i 


DUk.Sd))  . 


D2(k,S(l))  .  <C  S(1)^S(1)\ 


and  the  diagonal  covariant  metric  elements  are  placed  in  G(3): 


G(S(U)  . 


In  these,  i,  and  the  component  index,  k,  assume  the  values  1,2,3.  The 
dot  products  for  the  curvature  contribution  to  the  two  surface  control 
functions  are  then  calculated  and  placed  in  the  array  CUK(3).  In  3b, 
with  JFFTYP-" SURFACE" ,  the  calculation  is 


CUR(i) 


-^S(i) 


’  -^S(3)^S(3) 
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wticre  i  the  two  values  1,2.  Recall  that  the  curvilinear  direc¬ 


tion  S(3)  's  off  the  surface,  while  S(1)  and  (2)  are  the  two  directions 
on  tho  surface; 


■s(3  ).s(3 ) 


3 


In  20  the  curvature  contribution  is  calculated  on  the  ends  of  a 
line  and  becomes 


CUR(i) 


-_S(1)  *  -_S(i)_S(i) 
s _  s  ^ 


ItjS(l) 


Here  i  assumes  the  two  values  2,3.  In  this  case  S(1)  is  the  curvilinear 
direction  along  the  line,  S(2)  and  S{3)  being  the  other  two  directions; 


15.  SUBROUTINE  CONLINE  (line  control  function,  including  both  length 

and  curvature  contributions) 


This  subroutine  evaluates  the  control  function  at  "FIX'',  "NEUMAN", 
and  "uRTHGG"  points  on  a  line  section  identified  by  BLOCK,  START,  and 
END,  with  two  pairs  of  corresponding  entries  in  START  and  END  being 
equal.  This  function  includes  both  the  arc  length  ana  curvature  contri¬ 
butions. 

The  single  control  function  evaluated  on  the  line  is  given  by  (Eq. 
C-20  of  Appendix  C) 


-u 


C  £  £ 


■V 


r 

-  ram 


mm 


r 

-^n^n 


nn 


with  Z  the  curvilinear  di'^eotion  along  the  line  and  m  and  n  cyclic  with 
Z.  The  development  of  this  equation  is  given  in  Appendi*;  C.  The  first 
term  here  is  the  arc  length  contribution  and  is  evaluated  locally  from 
the  point  distribution  on  the  line. 


- - - - - 

The  other  term  is  the  curvature  contribution  in  1  requir’es  interpolation 
from  the  ends  of  the  line  where  the  two  off-line  deri'Mtives  can  bo 
evaluated  from  the  intersecting  surface. 
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The  routine  first  scales  for  zero  denominators  as  in  CONSURF,  and 
then  'i'^tr'’minc3  which  curvilinear  coordinate  varies  on  the  line,  by 
checking  for  equality  of  corresponding  entries  in  START  and  END,  and 
places  this  direction  (1)  as  the  first  entry  in  the  array  S.  The  other 
two  entries  in  S  are  set  to  the  other  two  directions  (m  and  n),  in 
cyclic  order  with  the  first: 
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Tne  control  function  in  the  direction  along  the  line  is  calculated 
at  each  point  between  the  ends  as  follows.  First  the  coordinate  deriv¬ 
atives  along  the  line  are  calculated  using  central  differences  and  are 
placed  in  the  array  DR (3 ,0;  3 .0;  3): 

DR(k,i,0)  =  (r  .  ) 

-^1  k 

DR(k,i,i)  =  (r  ) 

with  i=S(1),  and  the  component  index,  k,  assuming  the  values  1,2,3.  The 
dot  products  of  these  first  and  second  derivatives  along  the  line  are 
then  placed  in  the  array  DOT  as 

DOTd  ,1  ,1)  =  r  .  •  r  .  . 

~  1  'll 

and  the  diagonal  covariant  metric  element  g^j^  is  placed  in  the  array  G: 

G(1  ,1  )  =  r  •  r 

Subroutine  OFF  is  then  called  with  0FFTYP=" LINE"  to  calculate  the 
dot  products 


r 

'^m^m 


ard 


r 

'^n^n 


mm 


nn 


for  the  curvature  contributions  on  each  end  of  the  line,  returning  these 
quantities  as  CUR (2)  and  CUR (3).  The  values  of  these  dot  products  at 
the  point  where  the  control  function  is  being  evaluated  are  then  inter¬ 
polated  between  the  two  end  values  and  are  placed  in  l)OT(l,.’,2)  .and 
DOTd  ,3,3). 
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The  complete  line  control  function  for  the  curvilinear  direction 
along  the  line  is  then  calculated  by  adding  the  curvature  contribu¬ 
tions,  using  D0T(1  ,2,2)  and  DOT(1,3,3),  to  that  from  the  arc  length, 
using  DOTf 1,1,1),  implementing  the  equation  given  ao  the  beginning  of 
this  section.  In  the  code,  ll=«S(l  )  ,m=S(2 ) ,  and  n=S(3),  the  matrix  ele¬ 
ments  here  are 

•  cd.n 

8„„  •  0(3.3) 

and  the  dot  products  are 

<v  i 

(r  0  •  C  “  D0T(1,2,2),  etc. 

°rnm  ^  5 

Finally  the  control  functions  at  the  ends  of  the  line  are  interpo¬ 
lated  from  the  adjacent  values  for  end  points  that  are  "FIX",  "AVERAGE", 
"NEUMANN" ,  or  "ORTHOG"  and  where  no  Cartesian  coordinates  have  been  set 
outside  the  end.  As  in  CONSURF,  the  control  functions  are  set  to  zero 
when  the  end  point  has  r  -  0  on  either  side,  i.e.,  is  on  a  polar  axis. 

The  extrapolation  for  edge  values  is  also  done  at  "IMAGE"  points. 
This  has  no  effect  at  points  imaged  to  "FIELD"  points,  since  then  R 
will  have  a  real  value  outside  the  edge  and  good  control  functions  will 
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have  been  calculated  ther".  However,  points  imaged  to  non-field  points 


such  as  "FIX",  "3RTH0G",  etc.  must  have  extrapolated  control  functions 
since  none  are  calculated  there. 

16.  SUBROUTINE  CONSURR  (surface  control  functions  with  separate  arc 

length  and  curvature  contributions) 

This  routine  separately  evaluates  an  arc  length  contribution  and 
the  elements  of  a  curvature  contribution  to  the  control  functions  on  a 
surface  section  identified  by  BLOCK,  START,  and  END,  with  one  pair  of 
corresponding  entries  in  START  and  END  being  equal. 

These  control  functions  are  formed  in  three  elements,  each  of  whic'h 
is  interpolated  separately  into  the  field.  Thus  on  the  surface  section 
on  which  4''’  and  vary  (on  which  Is  constant), 


this  routine  calculates  the  a-'c  length  contributions,  A^  and  A^,  the 
spacings,  s^^^  and  s^,  the  radius  of  curvature  of  the  surface,  pj^,  from 
the  equations  (Eq.  C-6  and  C-20  of  Appendix  C) 


A 

m 


where  n  is  the  unit  normal  to  the  surface,  calculated  from 


Appendix  contains  the  development  of  these  terms.  The  arc  length 
contributions  and  A^^,  are  placed  as  the  m  and  n  components  of  the 
field  array  P,  the  spacings  and  s^^  as  the  m  and  n  components  of  the 
field  array  SPACE,  and  the  radius  of  curvature  as  the  I  component  of 
the  field  array  RAD. 

The  code  determines  the  two  surface  directions,  m  and  n,  and  the 
of f-surface  direction,  %,  as  in  CONSURF,  again  placing  these  as  the 
three  entries  in  S.  The  first  and  second  derivatives  on  the  surface, 
the  associated  metric  elements,  and  the  necessary  dot  products,  are  also 
determined  as  in  CONSlIRF.  The  unit  normal  is  placed  in  the  array 
NOR (3),  and  the  dot  products  involved  in  p  are  placed  in  DOT(3,3»3)  as 

D0T(3.1.1)  =  n  .  r^^^^ 

DOT(3,2,2)  =  D  •  r 

■  .  Q 

Normals  with  magnitudes  less  than  (/^1  +  ^^22^  ^  considered  to 

be  zero,  and  a  zero  value  for  the  radius  of  curvature  is  assigned.  If 
the  bracket,  i.e.,  the  curvature,  in  the  equation  for  the  radius  of 
curvature  is  less  than  the  inverse  of  the  radius  of  curvature  scale, 
RSCAL,  and  the  normal  is  not  zero,  the  surface  is  taken  to  be  locally 
flat  and  the  radius  of  curvature  is  set  to  the  radius  of  the  curvature 
scale,  i.e.,  essentially  infinity. 


205 


This  routine  sweeps  the  entire  section,  including  the  edges,  calcu¬ 
lating  the  three  elements  of  the  control  functions.  However,  if  no 
Cartesian  coordinates  have  set  on  the  surrounding  layers,  the  elements 
Ajjj,  Sjjj,  and  will  not  be  evaluated  properly  on  an  edge  on  which  c"’  is 
constant,  since  these  require  a  derivative  across  the  edge.  Therefore, 
each  of  the  four  edges  is  examined  and  values  of  the  elements  s^jj, 
and  at  "FIX",  "NEUMANN",  "ORTHOG"  and  "AVERAGE"  points  on  the  edges 
on  which  is  constant  are  extrapolated  from  adjacent  points  if  the 
value  of  the  first  component  of  the  Cartesian  coordinate  array  R  is 
equal  to  the  default  value,  "NONE",  at  the  adjacent  point  outside  the 
edge. 


The  extrapolation  for  edge  values  is  also  done  at  "IMAGE"  points. 
This  has  no  effect  at  points  imaged  to  "FIELD"  points,  since  then  R  will 
have  a  real  value  outside  the  edge  and  good  control  functions  will  have 
been  calculated  there.  However,  points  imaged  to  non-field  points  such 
as  "FIX",  "ORTHOG",  etc.  must  have  extrapolated  control  functions  since 
none  are  calculated  there. 
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If  the  coordinates  have  been  set  at  the  adjacent  exterior  point, 
but  the  coordinates  at  either  this  point  or  at  the  adjacent  interior 
point  are  the  same  as  those  at  the  point  on  the  edge,  then  the  edge  is 
part  of  a  surface  that  correspond  to  a  polar  axis,  and  consequently  all 
these  elements  of  the  control  functions  are  set  to  zero. 

The  code  uses  the  notation  C(3)  for  the  point  on  the  edge,  IC(3) 
for  the  adjacent  exterior  point,  and  JC(13)  for  the  adjacent  interior 
point; 


•  JC 


•  IC 


The  physical  distances  (squared)  from  the  edge  point  to  the  exterior  and 
interior  point,  respectively,  are  RAX  and  SAX,  and  a  value  of  either  of 
these  less  than  the  square  of  the  inverse  of  the  radius  of  curvature 
scale,  indicates  a  polar  axis. 

If  smoothing  on  the  surface  is  called  for,  the  arc  length  contribu¬ 
tion  to  the  control  function  in  P,  and  the  arc  length  spacing  in  SPACE, 
in  each  curvilinear  direction  on  the  surface  are  both  smoothed  along  the 
other  direction  on  the  surface  as  in  CONSURF.  The  radius  of  curvature, 
however,  is  smoothed  in  both  directions  on  the  surface,  replacing  the 
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value  at  each  point  by  the  average  of  the  value  there  and  the  average  of 
the  values  at  the  four  adjacent  points.  The  as  yet  unused  I  component  of 
the  P  array  is  used  for  the  dummy  in  the  smoothing. 

Finally  CONLINR  is  called  to  calculate  the  elements  of  the  remain¬ 
ing  control  functions  on  the  four  edges  of  the  surface,  analogous  to  the 
procedure  in  CONSURF. 


17.  SUBROUTINE  CONLINR  (Line  control  functions  with  separate  arc 

length  and  curvature  contributions) 


This  routine  separately  evaluates  an  arc  length  contribution  and 
the  components  of  a  curvature  contribution  to  the  control  function  on  a 
line  section  identified  by  BLOCK,  START,  and  END,  with  two  pairs  of 
corresponding  entries  in  START  and  END  being  equal,  analogous  to  the 
surface  evaluation  in  CONSURR. 

The  line  is  identified  as  in  CONLINE,  with  the  direction  along  the 
line  (1)  being  placed  in  S(3),  and  the  other  two  directions  (m  and  n)  in 
S(1)  and  S(2),  in  cyclic  order  with  S(3).  The  first  and  second  deriv¬ 
atives,  the  required  dot  products,  and  metric  coefficients  along  the 
line,  are  also  calculated  as  in  CONLINE. 

In  the  3D  case  only  the  arc  length  contribution  (Eq.  C-6  and  C-20 
of  Appendix  C ) 


-  £  £, 


is  evaluated,  this  being  placed  in  P  as  in  CONSURR.  In  2D  the  spacing 


s 


I 
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and  the  other  as 


Here  central  differences  are  used  along  the  line  and  also  in  the  two 
directions  off  the  line  if  possible,  with  one-sided  differences  being 
used  otherwise. 


The  dot  products  needed  for  pj^  are  then  placed  as 


Two  radii  of  curvature  are  then  calculated,  using  and  respec¬ 
tively,  and  are  placed  as  the  m  and  n  components  in  RAD. 

Values  at  "AVERAGE",  "FIX",  "NEUMANN",  and  "ORTHOG"  points  on  the 
ends  of  the  line  are  extrapolated  from  adjacent  values  when  no  Car¬ 
tesian  coordinates  have  been  set  outside  the  ends,  or  are  set  to  zero  at 
points  on  a  polar  axis,  as  in  CONLINE. 

The  extrapolation  for  edge  values  is  also  done  at  "IMAGE"  points. 
This  has  no  effect  at  points  imaged  to  "FIELD"  points,  since  then  R  will 
have  been  calculated  there.  However,  points  imaged  to  non-field  points 
such  as  "FIX",  "ORTHOG",  etc.  must  have  extrapolated  control  functions 
since  none  are  calculated  there. 

If  smoothing  is  called  for,  only  the  two  radii  of  curvature  in  RAD 


are  smoothed. 


18.  SUBROUTINE  CONINT  (control  functions  from  algebraic  grid) 


This  routine  evaluates  the  control  functions  at  all  "FIELD"  points 
from  the  initial  algebraic  grid.  The  three  components  of  the  elliptic 
grid  generator  system  (Appendix  B)  provide  a  set  of  three  equations. 


3 

I 

k=1 


kk,  . 

8 


3  3 

I  I  8  ^(r  ,  .)»  11=1,2,3 

i=1  J-1  SC 


that  can  be  solved  simultaneously  at  each  point  for  the  three  control 
functions,  (k=1,2,3).  The  derivatives  here  are  represented  by  cen¬ 
tral  differences.  This  option  is  exercised  if  CONTYP="INITIAL"  and 
produces  control  functions  which  will  reproduce  the  algebraic  grid  from 
the  elliptic  system  solution  in  a  single  iteration  if  central  differ¬ 
ences  are  specified.  Thus  evaluation  of  the  control  functions  in  this 
manner  would  be  of  trivial  Interest  except  when  these  control  functions 
are  smoothed  before  being  used  in  the  elliptic  generation  system. 

A  variation  of  this  evaluation  procedure  is  to  set  the  off-diagonal 
metric  elements  to  zero  in  the  evaluation  of  the  control  functions  from 
the  algebraic  grid,  as  if  the  grid  were  orthogonal.  This  produces  a 
grid  from  the  elliptic  system  that  has  the  same  qualitative  line  distri¬ 
bution  as  the  algebraic  grid  but  is  more  orthogonal.  This  variation  is 
invoked  with  CONTYP="ORTHO" . 

A  third  variation  sets  only  the  two  off-diagonal  metric  elements 
having  one  index  the  same  as  that  of  the  control  function  to  zero.  This 
amounts  to  relaxing  the  assumption  of  orthogonality  in  the  curvilinear 
coordinate  surface  associated  with  each  control  function. 
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19.  SUBROUTINE  VOLSYS  (elliptic  grid  generation  system) 

This  subroutine  performs  one  point  SOR  iteration  of  the  elliptic 
grid  generation  equations,  calculating  new  values  of  the  Cartesian  coor¬ 
dinates  at  all  "FIELD"  points.  The  SOR  sweep  direction  is  alternated  so 
that  the  iteration  is  symmetric  point  SOR. 

All  of  the  first  and  second  coordinate  derivatives  are  first  calcu¬ 
lated,  using  second-order  central  differences,  and  are  placed  in  the 
array  DR(3,0: 3i0: 3;  as  follows: 


(r  =  DR(1l.l,0)  =  1  [r(4^  >  1)  -  r(c^  -  Djj^ 

(r  .  -  26^jr  =  DR(iL,i,.j)  =  [r(5^1)  +  for  i=.1 


or 


-  r(5^  +  1  ,^-^-1  )  -  for  i.j 

where  6y  is  the  Kroneker  delta  and  only  the  arguments  that  vary  have 
been  shown.  Next  the  covariant  metric  elements  are  calculated  and 
placed  in  the  array  0(3,3): 

«ij  ■  ^1  •  =  j  ■ 

The  products  of  the  contravariant  metric  elements  with  the  square  of  the 
Jacobian  are  placed  in  the  array  00(3,3): 


gg 


ii 


®Jm®kn  ®Jn®km 


GG(l,l) 


(i,J,k)  cyclic 
(iL,m,n)  cyclic 
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(In  2D,  is  set  to  zero.) 

The  elliptic  grid  generation  system  is 


3 

I 


i  =  1  j  =  1 


kk 

g 


0 


where  the  P|^  are  the  control  functions.  (This  equation  is  discussed  in 
Appendix  B . ) 

With  central  differences,  the  first  derivatives  in  this  equation  are 
simply 


where  the  first  subscript  gives  the  component  (1,2,  or  3).  Provision  is 
also  made  for  one-sided  differences  dependent  on  the  sign  of  the  control 
function  (backward  for  P|^<0  and  forward  for  P|^>0): 

=  [ru")  -  -  1)]j^  <  0 
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The  product  Pj^c  can  then  be  represented  as 

“  '’k  DR(_.k.O)  +  A  |P^|  [  i  DR(_,k,k)  -  r  ] 

with  A=0  for  central  differences  and  A=1  for  one-sided.  The  switching 
coefficient,  A,  can  be  variable: 
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giving  central  differences  for  |Pj^|  <  2,  and  completely  one-sided  dif¬ 
ferences  for  |P(^]  -*■  This  insures  that  a  one-dimensional  overlap  will 
not  occur  (cf.  Appendix  I). 

Also,  with  central  differences  the  cross  derivatives  are 
r  .  .  =  DR( _ ,i,j) 

I 

— 6 — 


while  the  skewed  cross  derivatives  are  given  by 
(r  i  =  I  [  +  +  r(^^-1 ,4-^-1 )  - 

-  rCC^-I.C-^)  -  +  D  -  r 

+  PrCc^?-^)  ]  >  0 


and 


(r  )  =  1  [  r(C^+1,d-1)  +  r(C^-1  ,5-^  +  1)  -  r(C^+1,d) 
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These  can  be  incorporated  into  one  form  for  the  product  g^-^c  ^  i  as 

C  5 

f'  .  .  =  DR( _ ,i,j) 

i  r 


+  B  Ig^-^  I  I  [  DC(_,i.J) 


-  DR(_.i.i)  -  DR(__,j,j)  +  r  ]j^ 


with  B=0  for  central  differences  and  B-1  for  skewed,  and  with 


DCCl.i.j)  =  ^  [  r(C^+1 


for  i  »•  j  . 

The  generation  equation  can  then  be  written  as 


[  I  GG(k,k)  (2+a|P.  |)  -  B  I  I|GG(i,j)j]r 
k  i  j 

(i^J) 


»  I  GG(k,k)[  (1  +  DR(_,k,k)  +  DR(_,k,0)  ] 


^  H  {  GG(i,j)DR(_,i,J) 

i  J 
(i-j) 
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>  I  |OG(i,j)|  [  DC(_,i.j)  -  DR(_,i,l)  -  DR(_,j,j)  ]  } 

where  GG(i,j)  is  times  the  square  of  the  Jacobian.  This  is  imple¬ 
mented  as 

SUM1  +  SUM2 
h  '  SUM 

where 


SUM  =  I  GG(k,k)  (2+A|P  |)  -  B  I  I  |GG(i,j)| 
k  i  j 

(1-j) 


and 


SUM1  =  I  GG(k,k)  [  DR(_,k,0)  +  I  |P|^|  DR(_,k,k)  ] 


SUMP  =  I  GG(k,k)  DR(_,k,k)  +  H  {  GG(i,j)  DR(_,i,j) 
k  i  j 

(i*j) 


*  I  iGG(i,j)|  [  DC(_,iJ)  -  DR(_,i,i)  -  DR(_,j,j)  ]  } 


The  switching  coefficient  A  is  obtained  from  the  relation 

A  =  A^  +  A^  mind,  1  |P^|) 

where  A^  and  assume  the  following  values  depending  on  the  differ¬ 
ences: 


centered 

one-sided 

variable 

0 

1 

0 

0 

0 

1 
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with  the  code  notation  AFIRS1  and  AFIRS2  for  A^  and  Also  used  is 
ACR0S2  for  2B,  the  two  arising  from  the  symmetric  sum  of  which  B  is  the 
coef f icient . 

The  values  of  the  Cartesian  coordinates  given  by  this  equation  are 
taken  as  Intermediate  values,  and  the  acceleration  process  yields  the 
new  values  at  the  current  iteration  as 


new 


X 


H 


( l-a))x 


old 

i. 


where  the  acceleration  parameter,  a>,  is  in  the  field  array  ACC. 

The  iteration  error  norms  EO.BMAX)  are  the  maximum  values  over  all 
"FIELD"  points  of  the  absolute  change  in  the  values  of  the  Cartesian 
coordinates  between  iterations: 


ECU  .BLOCK)  =  max|xj‘®'^  -  \ 

The  location  of  this  maximum  is  also  noted  and  placed  in  EC  ( i  ,BLOCK  ,il ) , 
i-1 ,2,3. 
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?Q.  SUBROUTINE  OPTACC  (variable  field  of  optimum  acceleration  parame¬ 
ters) 


This  subroutine  evaluates  an  acceleration  parameter  at  each  "FIELD" 
point  for  the  point  SOR  iterative  solution  of  the  elliptic  generation 
system,  placing  these  values  in  the  field  array  ACC.  First  the  coordi¬ 
nate  derivatives,  c  and  the  metric  elements,  g^j  and  g^*^ ,  are  evalu¬ 
ated  as  in  subroutine  VOLSYS. 

The  partial  differential  equation  that  is  solved  to  generate  the 
grid  is  Eq.(B-ll)  of  Appendix  B.  In  this  equation  the  coefficient  of  the 
central  value  of  c  la 

a  =  I  g‘'‘'(2-^A|P  |)  -  B  II  Ig^-^  I 
°  k  ^  i  J 

(i*j) 

and  the  coefficients  of  c  at  and  at  on  the  right  hand  side  are 


a^  =  [  (uf  iPj)  ±  I  Pj  -  B  dg^-^l  +  Ig^*" 

with  (l,j,k)  cyclic  in  this  last  equation, 
a^  a^  is  given  by 

a'a'  =  [  g^^d  *  I  |Pj  )  '  B(jg^-^|  ^  Ig^'^l) 


|)  1=1, 2, 3 

Also  the  product 


-  J 


2 


From  Ref.  (12),  for  the  difference  equation 


I 

i 


1 


a 


+ 


x(^^+1  )  +  a 


1 


x(C^-1  ) 


a  X  =  0 
o 
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(where  only  the  functional  dependence  on  the  argument  that  varies  from 
the  central  value  is  shown),  a  field  of  optimum  acceleration  parameters 
for  accelerated  point  Gauss-Seidel  interation  can  be  calculated  as 
follows: 


WR 


4(0 


-  — 2  — 

WPAR  :  0)  +  /o)  +  4a) 

The  coefficients  A  and  B  that  determine  the  form  of  the  first  and  cross 
derivatives  are  as  used  in  VOLSYS. 

The  Jacobi  eigenvalue  (i.e.,  for  point  Jacobi  iteration)  with  the 
largest  magnitude  is  given  by 

2  i  1  1 

M  »  y  +  iy.  =  —  I  /a  a_  cos  -r — 

^  ^  %  i  nSi 

where  is  the  number  of  points  in  the  i  direction  involved  in  the 

solution.  (The  i  on  the  left  side  here  is,  of  course,  /-I,  and  y^^  is  the 
imaginary  part  of  y,  while  on  the  right,  i  indicates  one  of  the  three 
directions) . 

The  locally  optimum  acceleration  parameter,  o),  is  then  given  by 


1  *^2  ~ 
0)  =  -  —  [0)^/0)  +4aj 


?  2 

with  the  upper  sign  for  a  >  6  and  the  lower  for  o  <  6  where 


a  = 


6  = 


y 


y 


2 

1 

2 

1 
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b  -  -  8 

c  •=  /a  + 

w  =  -4"  1  [(3b+c)(c-b)’^^  -  (3trc)(c+b)^^^]a’^3 

a  b 

+  ^  +  3B^  -  i*ci^6  } 

This  is  implemented  in  the  code  with  the  following  notation: 

GG(i,j)  :  SUM  =  2  I  g*^*^ 

k 

APi  :  |PJ 

AGPi  :  1  +  I  |Pj 

GGPi  :  g“(  1  >  I  |Pj)|Pj 

AGO  ;  a 

0 

Ai  :  [  g“(1  +  flPj)  -  3(|g^J|  +  Ig^'^l) 

Bi  :  \  (g^P^)^ 

Thus  /aja^  -  Ai  -  Bi 

Si  :  2  /a^  a^  cos  — r-^ - 

+  -  ..i  .  . 
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COSi 

;  2  COS  -p -  with  -  CMAX  (i, block) 

+  1 

PREAL 

PIMAG 

AU 

:  a 

BU 

;  e 

AL 

:  a 

BL 

:  b 

ABR 

:  G 

R00T1 

:  [a(G-b)] 

R00T2 

:  [a(c+b)]^'^^ 

WBAR 

:  oj 

If  the  control  functions  are  being  Iteratively  adjusted  for  bound¬ 
ary  orthogonality  (Section  I-C10),  it  is  necessary  to  limit  the  accel¬ 
eration  parameters  as  discussed  In  Appendix  H.  Therefore  w,  in  this 
case,  is  limited  to  the  minimum  of  the  value  calculated  above  and  the 
value  given  by 

r  kk 

I  g 

J< _ 

kk 

max  g 
k 

The  routine  concludes  with  the  determination  and  printing  of  the 
extreme  values  of  the  acceleration  parameters  over  the  field. 
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21 .  SUBROUTINE  SMOOTH  (smoothes  Cartesian  coordinates  or  control 

functions) 

This  routine  smoothes  either  the  Cartesian  coordinates  or  the 
control  functions  at  each  "FIELD"  point.  In  either  case  the  field  array 
to  be  smoothed  is  first  written  into  a  dummy  array  received  as  the 
second  argument.  At  each  "FIELD"  point  the  values  are  then  replaced  by 
the  average  of  the  values  at  all  the  adjacent  points  in  each  curvilinear 
direction  in  which  smoothing  has  been  called  for  through  entries  of 
these  directions  in  the  array  SM0DIR(3).  Up  to  six  adjacent  points  can 
thus  be  involved: 


The  argument  array  G  is  first  written  on  file  8,  after  rewinding,  to 
free  this  array  to  be  used  as  a  dummy.  This  array  is  recovered  before 
exiting  the  subroutine  by  rewinding  and  reading  file  8. 
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22.  SUBROUTINE  CONSETU  (set  up  for  boundary  orthogonality  through 

iterative  adjustment  of  control  functions) 

The  procedure  for  iterative  adjustment  of  the  control  functions 
during  the  solution  of  the  elliptic  grid  generation  equation  is  dis¬ 
cussed  in  detail  in  Appendix  0.  This  subroutine  sets  up  the  off-bound¬ 
ary  spacing. 

The  routine  examines  the  block  for  sections  designated  for  this 
type  of  boundary  orthogonality,  these  being  counted  in  ORTNUM.  (This 
and  the  other  arrays  involved  for  the  section  specification  are  dis¬ 
cussed  in  Section  II-C6.)  For  such  sections,  the  curvilinear  coordinate 
that  is  constant  on  the  section  is  obtained  as  the  absolute  value  of 
ORTNOR.  The  value  of  this  coordinate,  placed  in  C(N),  and  the  section 
limits  are  obtained  from  ORTBON; 


(N,N1,N2  cyclic) 

In  the  notation  of  Appendix  D,  N  corresponds  to  the  off-surface  direc¬ 
tion,  2,,  while  N1  and  N2  correspond  to  the  two  directions,  m  and  n,  on 
the  surface. 
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The  section  is  then  swept,  with  the  local  curvilinear  coordinate 
values  on  the  section  in  C(N1)  and  C(N2),  and  those  relative  to  the 
section  corner  in  J1  and  J2.  The  index  of  the  local  point  in  the  sec¬ 
tion  array,  RO,  is  obtained  from  the  index  function  NDXRO  with  J1  and  J2 
as  arguments.  At  each  "ORTHOG"  point  on  the  section  the  following  is 
done: 

The  first  derivatives  on  the  surface  are  calculated  by  central 
differences  for  the  m  and  n  directions  and  one-sided  differences  for  the 
*,  direction,  and  are  placed  in  DR: 

DR(  ,1,0)  :  r 

- 

DR(_,2,0)  :  r 

5 

DR(  .3,0)  :  r  . 

r 

The  off-surface  spacing,  (GOOR  in  the  code  notation)  is  set  from 

the  field  array  SPAN  if  an  input  specification  was  made;  otherwise  this 

spacing  is  set  to  d  •  C  where  q  is  the  unit  normal 

5 

r  X  r 
,,m  '^,-n 

and  c  is  evaluated  from  the  initial  algebraic  grid,  and  is  placed  in 
C 

SPAN. 

The  code  notation  for  the  vectors  of  Appendix  D  is  as  follows: 

a  ;  R0( _ ,0, _ , _ ) 

B^:  R0_,1,_,_) 


225 


§2^ 

R0(_,2,_,_) 

C  ; 

R0(_,3,_,_) 

A  : 

V 

23.  SUBROUTINE  CQNSETE  (iterative  adjustment  of  control  functions  for 

boundary  orthogonality) 

This  subroutine  changes  the  control  functions  throughout  the  field 
in  order  to  achieve  boundary  orthogonality  on  specified  boundary  sec¬ 
tions,  as  discussed  in  Appendix  D.  The  routine  first  saves  the  field 
array  RAD  on  file  7  and  then  zeroes  this  array. 

The  routine  examines  each  block  for  sections  designated  for  this 
type  of  boundary  orthogonality,  these  being  counted  in  ORTNUM.  (This 
and  the  other  arrays  involved  in  the  section  specification  are  discussed 
in  Section  II-C6.)  For  such  sections,  the  curvilinear  coordinate  c” 
that  is  constant  on  the  section  is  obtained  as  the  absolute  value  of 
ORTNOR.  The  value  of  this  coordinate,  placed  in  C(N),  and  the  section 
limits  are  obtained  from  ORTBON: 


(N,N1 ,N2  cyclic) 
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In  the  notation  of  Appendix  D,  N  corresponds  to  the  off-surface  direc¬ 
tion,  8,,  while  N1  and  N2  correspond  to  the  two  directions,  m  and  n,  on 
the  surface. 

The  section  is  then  swept,  with  the  local  curvilinear  coordinate 
values  on  the  section  in  C(N1)  and  C(N2)  and  those  relative  to  the 
section  corner  in  J1  and  J2.  The  index  of  the  local  point  in  the  sec¬ 
tion  array  RO  is  obtained  from  the  index  functions  NDXRO  with  J1  and  J2 
as  arguments.  At  each  "ORTHOG"  point  on  the  section  the  following  is 
done: 

First  the  curvilinear  coordinate  line  from  the  ORTHOG  point  to  the 
corresponding  point  on  the  opposite  boundary  is  swept,  calculating  the 
arc  length,  ARC,  along  this  line. 

This  line  is  then  swept  again.  At  each  point  on  the  line  the  first 
and  second  derivatives  on  the  intersected  coordinate  surface  are  calcu¬ 
lated  by  central  differences  and  are  placed  in  DR: 


DR( _ 

,1,0)  : 

r 

-^m 

DR( _ 

,2,0)  : 

r 

o 

1 

.1,1)  : 

r 

~^m^m 

1 

DC 

O 

,2,2)  : 

DR( _ 

,1,2)  : 

-^m^n 

The  first  derivative  along  the  line  is  calculated  by  a  backward  differ¬ 
ence: 

DR(  ,3,0)  :  r 

—  r 
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The  metric  elements  then  are  calculated  and  placed  as 


G(1 ,1  ) 

G(2,2) 

G(1 ,2) 


g  -  ir  r 

mm  ‘  -^m ' 


®nn  ~  '-^n' 


mn 


At  the  first  point  on  the  line  after  the  ORTHOC  point,  the  off- 
boundary  spacing  is  set  from  the  SPAN  array,  and  a  hyperbolic  sine 
distribution  of  arc  length  is  determined  along  the  line  having  this 
initial  spacing.  This  distribution  is  given  by 


3(0 


sinh(6  Irr) 

sitis 


0 

where  C  is  C  .  I  is  the  total  number  of  points  on  the  line,  and  S  is  the 
total  arc  length.  The  parameter  6  is  determined  by  the  initial  spacing 
from 


sinh  6  S 

6  “  (I-l )»SPAN 


This  nonlinear  equation  is  solved  by  Newton  iteration.  In  the  less 
frequent  case  where  the  specified  off-boundary  spacing  in  SPAN  is 
greater  than  the  average  spacing  S/(I-1),  the  hyperbolic  functions  are 
replaced  by  the  corresponding  circular  functions. 

At  each  point  on  the  line  the  local  off-surface  spacing,  /g^,  is 
calculated  from  this  distribution  and  is  placed  in  GOOR.  The  quantities 
ai  82*  Appendix  D  are  then  calculated. 

The  code  rotation  for  the  vectors  of  Appendix  D  is  as  follows; 
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a  :  R0( _ ,0, _ , _ ) 

§2'  ^ 

C  :  R0(_,3,_,_) 

A  :  V 


At  each  point,  the  off-surface  derivative  c  0  0  is  evaluated  as 


■  'c  1>  t  ■  c  t  ■  a  >'% 

s  s  s  s  s 


with  c  0  0  evaluated  as  a  one-sided  difference  toward  the  boundary.  Here 

9 

0  is  the  local  normal  to  the  5  -constant  surface: 


and  are  placed  in  DP(N1),  DP{N2),  and  DP(N),  respectively.  The  present 
values  of  the  control  functions  are  in  the  field  array  P.  The  magnitude 
of  the  control  function  increments  is  limited  to  2.0. 
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These  control  function  increments  are  then  attenuated  by  a  factor, 
DFAC,  and  are  added  to  the  array  RAD  at  the  point  on  the  line.  The 
attenuation  factor,  which  decreases  from  1  at  the  ORTHOG  point  to  0  at 
the  other  end  of  the  line,  is  calculated  from  the  ratio  of  the  local 
spacing  to  the  initial  spacing.  The  attenuation  factor  is  the  minimum 
of  this  ratio  an'’  its  inverse,  with  the  additional  stipulation  that  the 
attenuation  factor  does  not  increase  along  the  line. 

After  the  increments  from  all  ”ORTHOG"  points  have  been  radiated 
into  the  field  and  accumulated,  the  extreme  values  of  the  Increments 
over  the  field  are  determined  and  printed.  The  control  functions  at  all 
points  in  the  field  are  then  changed  by  the  increments  in  R,  after  which 
this  array  is  restored  by  reading  from  file  7,  but  attenuated  by  multi¬ 
plication  by 


DFAC  =  0.1 


[1 


(^^jIEXP 


where  (/g££ )o  is  the  specified  off- boundary  spacing,  and  s  is  the  local 
arc  length  and  where  lEXP  is  2  in  2D  and  3  in  3D.  The  form  of  this 
formula  is  chosen  so  that  with  the  same  spacing  specified  at  each  of  two 
opposing  boundaries,  the  value  of  DFAC  will  not  exceed  0.1.  Thus  at  the 
first  point  off  the  boundary  we  have,  with  s^  =  (/g^^ )o , 

s  s 

0.1  [j~  (1  -  a^)]  *  0.1  (1  -  3^)]  .  0.1 

O  0 


where  the  first  term  arises  from  the  near  boundary,  and  the  second  from 
the  far.  The  attenuation  x'actor  is  multiplied  by  the  Input  factor 
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CONFAC  (defaulted  to  1.0).  The  attenuation  factor  is  decreased  by  1/2 
at  ORTHOG  points  that  are  adjacent  to  non-ORTHOG  points. 

24.  SUBROGTIME  SPLSUR  (surface  spline) 


This  routine  splines  a  surface  section  as  described  in  Appendix  E. 
The  section  is  received  in  the  argument  array  SUR ,  with  second  subscript 
0,  and  the  two  dimensions  of  the  section  are  received  as  the  arguments 
N1  and  N2. 

The  surface  spline  array  SUR  is  dimensioned  SUR (3.0: 5,N1 |N2)  where 
the  last  two  subscripts  are  the  surface  dimensions.  The  second  sub¬ 
script  corresponds  to  the  spline  coefficients  as  follows; 

0  r 


SUR 

(0, 

—  ) 

j 

SUR 

(1, 

— ) 

'  ( 

'  surface 

i 

SUR 

(2, 

— ) 

=  =.  I 

\ 

SUR 

(3. 

- ) 

5  I’r 

-Sn  1 

1 
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CUR  (0,  — ) 

CUR  (1  ,  ) 

CUR  (3.  — ) 

The  routine  places  the  Cartesian  coordinates  of  the  points  on  the  sur¬ 
face  in  the  array  CUR,  with  a  zero  for  the  second  subscript,  and  calls 
SPLCUR  to  spline  each  curve  of  each  of  the  two  families  on  the  surface, 
with  the  argument  "QUAD"  for  quadratic  ends,  i.e.,  constant  curvature. 
The  first  derivative  is  returned  in  CUR  with  1  as  the  second  subscript 
and  is  transferred  to  SUR  with  1  or  2  as  the  second  subscript,  corre¬ 
sponding  to  or  as  above.  These  first  derivatives  are  then  splined 
by  calling  SPLCUR  with  the  argument  "SPECIF"  for  specified  slopes  at  the 
ends  to  generate  the  cross-derivative  as  discussed  in  Appendix  E. 

25.  SUBROUTINE  SPLCUR  (curve  spline) 

This  routine  splines  a  curve  as  described  in  Appendix  E.  The  curve 
is  received  as  the  argument  CUR  with  the  second  subscript  0,  the  number 
of  points  thereon  as  NP,  the  number  of  components  as  NC ,  and  the  type  of 
ends  as  TYPE.  The  ends  will  have  zero  curvature  (natural  spline)  for 
TYPE  equal  to  "NATURAL",  constant  curvature  for  "QUAD",  or  specified 
slope  for  "SPECIF".  In  the  latter  case  the  specified  slope  is  received 
in  CUR  (2,  - )  at  the  ends. 


1 
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The  curve  spline  s.rra.'j  is  dimensioned  CUR{3,0:2,N)  where  N  is  the 
curve  dimension.  The  second  subscript  indicates  the  spline  coefficients 
as  follows: 

0 

1 

2 

The  notation  is  as  follows: 

CUR  (1  ,  — )  :  r 

CUR  (2,  — )  :  5 

CUR  (3,  — )  :  -  3 

F  :  right  hand  side  of  Eq.(E-2) 

AA  :  coefficient  of  s_  and  s„  ,  for  1=2  and  N-1. 

~2  -N" I 

BB  :  coefficient  of  s.  and  s„  „  for  i=2  and  N-1. 

-3  -N-2 

26.  SUBROUTINE  DEFAUL  (default  arrays) 

This  routine  sets  the  default  values  in  the  R  ,P .SPAN  .IMAGE,  and 
TYPE  arrays  for  a  block.  The  routine  sweeps  the  entire  block,  including 
the  surrounding  layer,  setting  R  to  "NONE",  TYPE  to  "OUT",  and  P  and 
SPAN  to  0.0.  The  block,  exclusive  of  the  surrounding  layer,  is  then 
swept  again  setting  IMAGE  to  0  and  resetting  TYPE  to  "FIELD".  The  block 
is  identified  by  NBLK  in  COMMON/ SEC T N/ ,  and  its  size  is  received  in  the 
argument  CMAX. 
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27.  SUBROUTINE  SETYPE  (set  type  array) 


This  routine  sets  the  point  type  array  TYPE  to  the  argument  IVAL 
for  a  section  of  points  in  a  block  identified  by  START  and  END  in  COM- 
MON/SECTN/.  This  is  simply  three  nested  loops  over  the  three  curvi¬ 
linear  coordinates,  from  the  minimum  of  START  to  END  to  the  maximum 
thereof,  setting  TYPE  equal  to  IVAL  for  all  points  on  the  section  if 
IVAL  is  not  "UNFIX"  and  the  point  is  not  currently  a  "FIX"  point.  If 
IVAL  is  equal  to  "UNFIX",  TYPE  is  set  to  "FIELD". 

28.  SUBROUTINE  SETRES  (reset  restricted  Neumann  points) 

This  routine  resets  the  point  type  array  TYPE  to  the  alphanumeric 
argument  IVAL  for  points  currently  having  TYPE  equal  to  "NEUMANN" .  The 
operation  is  the  same  as  that  of  SETYPE. 

29.  SUBROUTINE  SETNEU  (set  Neumann  section) 

This  routine  sets  up  a  Neumann  boundary  section  defined  by  START 
and  END  for  a  block  identified  by  NBLK,  these  parameters  being  received 
in  COMMON/SECTN/. 

If  NEW="YES‘',  a  new  boundary  section  is  set  up  to  be  splined,  and 
therefore  the  section  counter,  NEUNUM(NBLK) ,  is  incremented  for  the 
block  indicated.  The  code  stops  if  this  counter  exceeds  the  maximum 
number  of  sections  allowed,  DNEU.  (The  section  here  must  define  a  sur¬ 
face  in  3D,  or  a  curve  in  2D,  lying  on  a  boundary.)  If  ISTART  and  lEND 
are  omitted  from  the  input  statement,  the  section  to  be  splined  defaults 
to  that  specified  as  Neumann  boundary  points  by  START  and  END.  Other¬ 
wise  the  splined  section  is  defined  by  ISTART  and  lEND  and  must  Include 
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the  Neumann  section.  The  three  indices  of  two  opposite  corners  defining 
the  splined  section  are  placed  in  the  array  NEUB0N(3.  1|  NBUNUM(NBLK) , 
NBLK),  with  i  =  0  for  the  first  corner  and  i  -  1  for  the  second.  These 
corners  are  redefined  from  1ST  ART  and  lEND,  or  from  START  and  END,  so 
that  each  index  for  the  second  corner  is  not  less  than  the  corresponding 
entry  for  the  first.  The  curvilinear  coordinate  that  is  constant  on  the 
section  is  then  determined  by  examining  START  and  END  for  equality  of 
corresponding  entries,  and  is  placed  in  NEUNOR  (NEUNUM(NBLK) , (NBLK) . 

The  section  normal  direction,  placed  in  NEUNOR,  is  made  negative  if 
either  the  section  is  on  an  upper  side  of  a  block,  or  it  is  in  the  inte¬ 
rior  and  the  argument  IDIR  is  not  equal  to  the  default  "NONE",  If 
SPAVAL  is  included  on  the  input  statement,  its  value  is  placed  in  the 
array  SPAN  for  each  point  on  the  section. 

Finally,  the  classification  array,  TYPE,  is  set  to  "NEUMANN"  for 
each  point  on  the  Neumann  section  defined  by  START  and  END  that  is  not 
already  classified  as  a  fixed  point,  regardless  of  the  value  of  NEW. 

30.  SUBROUTINE  SETORT  (set  orthogonal  section) 

This  routine  sets  up  an  orthogonal  boundary  section  defined  by 
START  and  END  for  a  block  identified  by  NBLK,  these  parameters  being 
received  in  COMMON/ SEC TN/ . 

The  section  counter,  ORTNUM(NBLK) ,  is  incremented  for  the  block  in¬ 
dicated,  and  the  code  stops  if  the  maximum  number  of  sections,  DORT,  is 
exceeded.  (The  section  here  must  define  a  surface  in  3D,  or  a  curve  on 
2D,  lying  on  a  boundary.)  The  three  indices  of  the  two  opposite  cor¬ 
ners  of  the  section,  defined  by  START  and  END,  are  placed  in  the  array 
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0RTB0N(3,i,0RTNUM(NBLK),NBLK),  with  1  =  0  for  the  first  corner  and  i  »  1 
for  the  second.  These  corners  are  redefined  from  START  and  END,  so  that 
each  index  for  the  second  corner  is  not  less  than  the  corresponding  en¬ 
try  for  the  first.  The  curvilinear  coordinate  that  is  constant  on  the 
section  is  then  determined,  by  examining  START  and  END  for  equality  of 
corresponding  entries,  and  is  placed  in  0RTN0R(0RTNUM(NBLK) ,NBLK) . 

The  section  normal  direction,  placed  in  ORTNOR,  is  made  negative  if 
either  the  section  is  on  the  upper  side  of  a  block,  or  it  is  in  the  in¬ 
terior  and  the  argument  IDIR  is  not  equal  to  the  default  "NONE".  The 
classification  array,  TYPE,  is  set  to  "ORTHOG"  for  each  point  on  the 
section  not  already  classified  a  fixed  point.  Finally,  if  SPAVAL  is 
included  on  the  input  statement,  its  value  is  placed  in  the  array  SPAN 
for  each  point  on  the  section. 

31.  SUBROUTINE  SETREF  (set  reflective  section) 

This  routine  sets  up  a  reflective  boundary  section  defined  by  START 
and  END  for  a  block  Identified  by  NBLK,  these  parameters  being  received 
in  COMMON/ SEC TN/ . 

The  section  counter,  REFNUM(NBLK) ,  is  incremented  for  the  block 
indicated,  and  the  code  stops  if  the  maximum  number  of  sections,  DREF, 
is  exceeded.  (The  section  here  must  define  a  surface  in  3D,  or  a  curve 
on  2D,  lying  on  a  boundary.)  The  section  is  first  extended  by  one  point 
on  each  side,  subject  to  the  limitation  of  the  block  boundaries,  in  each 
direction  for  which  START  and  END  are  not  equal  by  resetting  START  and 
END.  The  three  indices  of  the  two  opposite  corners  of  the  section,  de¬ 
fined  by  START  and  END,  are  placed  in  the  array  REFBON (3, i .REFNUM 
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(NBLK) ,NBLK) ,  with  i  =  0  for  the  first  corner  and  i  =  1  for  the  second. 
These  corners  are  redefined  from  START  and  END,  so  that  each  index  for 
the  second  corner  is  not  less  than  the  corresponding  entry  for  the 
first.  The  curvilinear  coordinate  that  is  constant  on  the  section  is 
then  determined,  by  examining  START  and  END  for  equality  of  correspond¬ 
ing  entries,  and  is  placed  in  REFNOR(REFNUM(NBLK) ,NBLK) .  If  the  section 
lies  on  an  upper  side  of  the  block,  the  entry  in  REFMOR  is  made  nega¬ 
tive.  The  Glassification  array,  TYPE,  is  set  to  "FIELD"  for  each  point 
on  the  unextended  section  not  already  classified  a  fixed  point.  Fi¬ 
nally,  all  points  on  the  surrounding  layer  that  are  adjacent  to  points 
on  the  section  are  classified  "REFLECT"  in  TYPE. 

32,  SUBROUTINE  SETOBJ  (set  image  point) 

This  routine  designates  a  point  as  an  image  point  and  sets  the  cor¬ 
responding  object  pHere  TYPE  is  set  to  "IMAGE",  for  the  point  identified 
by  IPOINT,  and  the  block  number  and  curvilinear  coordinates  of  the  ob¬ 
ject  point  identified  by  NBLK  and  POINT  are  put  in  the  array  IMAGE  for 
the  image  point. 

33.  SUBROUTINE  SETSPA  (set  spacing) 

This  routine  sets  values  in  the  spacing  array  SPAN  to  the  argument 
SPAVAL  on  a  section  of  points  in  a  block  defined  by  START  and  END  in 
COMMON/ SEC TN/ .  A  set  of  three  nested  loops  puts  the  specified  off- 
boundary  spacing  by  SPAVAL  in  the  field  array  SPAN  for  all  points  on  the 
section. 
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34.  SUBROUTINE  SETSPL  (spline  Neumann  section) 


This  routine  splines  the  Neumann  boundary  sections  in  a  block  iden¬ 
tified  by  NBLK  in  COMMON/ SECTN/  and  sets  up  the  boundary  array  RR  which 
contains  the  points,  the  two  first  deivatives,  and  the  cross  derivative 
on  the  Neumann  sections  in  the  block. 

If  the  Neumann  section  counter,  NEUNUM,  is  non-zero  for  the  block, 
then  the  array  RR  is  filled  by  spllning  each  section  indicated  for  that 
block.  This  array  is  dimensioned  RR(3 , 0: 3,DMRR ,SSDB ) ,  where  the  second 
subscript  indicates  the  Cartesian  coordinates  of  the  point  (0),  the 
first  derivatives  in  the  two  directions  on  the  section  in  cyclic  order 
with  the  curvilinear  coordinate  that  is  constant  on  the  section  (1,2), 
and  the  cross  derivative  (3).  The  first  subscript  indicates  the  compo¬ 
nent.  The  sections  in  the  block  are  placed  in  this  array  point-by-point 
in  a  one-dimensional  sequence  indicated  by  the  third  subscript.  The 
value  of  this  subscript,  less  one,  corresponding  to  the  first  point  on  a 
section  is  in  the  index  array  IDXRR(DIMB,DNEU ) ,  in  which  the  first  sub¬ 
script  identifies  the  block  and  the  second  subscript  identifies  the  sec¬ 
tion.  A  point  at  on  a  section  on  which  is  constant  (with 
ifJik  cyclic)  is  then  located  in  the  RR  array  with  the  third  subscript 
given  by  the  function 

NDXRR(NBLK,NEU,I1  ,12)  =  IDXRR(NBLK,NEU )  (12  -  1  )*IT1  +  II 

where  B  and  NEU  are  the  block  number  and  the  section  number  in  that 
block,  IT1  is  the  number  of  points  in  the  direction  on  the  section, 
and 
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n  =  -  IS2 

12  =  IS2 

where  (IS1,IS2)  are  the  indices  of  the  first  corner  of  the  section: 

151  =  NEUB0N(j,0,NEU,NBLK) 

152  =  NEUB0N(k,0,NEU,NBLK) 

CMAX(j,B),  CMAX(l<,B) 


In  a  loop  over  all  the  Neumann  sections  that  have  been  created  for 
the  block,  the  curvilinear  coordinate  that  is  constant  on  the  section  is 
obtained  from  NEUNOR,  after  which  NEUNOR  is  made  negative  if  the  section 
lies  on  an  upper  side  of  the  block.  The  limits  of  the  section, 
(IS1,IS2)  and  (IE1,IE2)  are  obtained  from  NEUBON,  and  the  number  of 
points  on  each  side  are  placed  in  IT1  and  IT2. 

The  section  then  is  swept  in  two  nested  loops,  placing  the  three 
Cartesian  coordinates  of  each  point  in  RR  with  the  second  subscript 
therein  as  0,  and  the  third  subscript  given  by  index  the  function  NDXRR. 

The  section  is  then  swept  again,  placing  the  Cartesian  coordinates 
of  the  points  on  the  section  in  the  spline  array  SUR(3,0: 3,DMRR) ,  where 
the  subscripts  have  the  same  meaning  as  the  first  three  in  RR,  with  the 
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second  subscript  set  at  0  and  the  third  determined  from  the  index  func¬ 
tion  NDXRR  with  the  block  number  replaced  by  a  1 .  The  section  is  then 
splined  by  calling  SPLSUR ,  the  two  first  derivatives  and  the  cross  de¬ 
rivative  being  returned  in  SUR,  with  the  second  subscript  set  at  1  and  2 
for  the  former  and  at  3  for  the  latter.  A  final  sweep  of  the  section 
then  transfers  these  three  derivatives  from  SUR  to  RR.  In  the  Interest 
of  vectorizatlon ,  these  three  sweeps  of  the  section  are  done  with  the 
longest  side  as  the  innermost  loop. 

35.  SUBROUTINE  SETAXS  (set  right-handed  system) 

This  routine  sets  the  coordinate  on  the  adjacent  layers  at 
=  0  and  2  in  the  third  curvilinear  direction  for  a  2D  system  to  +1  in 
such  a  way  as  to  make  the  system  right-handed  (with  x^  =  0  or  =  1) 
in  the  block.  This  is  done  by  setting  the  x^  value  at  =  2  to 


calculated  at  the  first  point  on  where  the  denominator  is  non-zero, 
and  setting  x^  at  E^=0  to  the  negative  of  this  value.  Here  the  block  is 
identified  by  NBLK  in  COMMON/SECTN/ ,  and  its  limits  are  received  in  the 
argument  CM AX. 

36.  SUBROUTINE  SETR2D  (set  2D  adjacent  planes) 

This  routine  sets  the  first  two  Cartesian  coordinates,  x-j  and  ^2, 
on  the  adjacent  layers  at  ^^=0  and  2  in  a  block  for  a  2D  system  to  the 
current  values  at  The  third  coordinate  is  set  to  ±1  in  such  a  way 


as  to  make  the  system  right-handed.  Here  the  block  is  identified  by 
NBLK  in  COMMON/SECTN/ ,  and  its  limits  are  received  in  the  argument 
CM  AX. 

37.  SUBROUTINE  SETNOR  (set  reflective  normals) 

This  routine  sets  the  normals  to  the  reflective  boundary  sections 
in  a  block  identified  by  NBLK  in  COMMON/SECTN/.  The  routine  calculates 
the  unit  normal  to  each  section  in  that  block  and  places  it  in  the  ar¬ 
ray  REFDIR(3,DREF,DIMB),  where  the  second  subscript  gives  the  section 
number  and  the  third  is  the  last  block  number. 

The  curvilinear  coordinate  that  is  constant  on  the  section  is  re¬ 
covered  as  the  absolute  value  of  REFNOR (REF, NBLK)  where  the  integer  REF 
is  the  section  number,  and  the  section  limits  are  taken  from  the  array 
REFBON  (3  ,0, REF, NBLK) .  The  unit  normal  is  then  calculated  as 

.  1  »  2 
Ar  X  Ar 

~  °  77~i  “FT 

jAr  X  Ar  | 

1  P 

where  Ar  and  Ar*^  are  the  increments  from  the  first  corner  of  the  section 
to  the  next  points  in  each  of  the  directions  on  the  section: 


241 


After  being  calculated,  the  normal  is  given  the  sign  of  REFNOR(REF, 
NBLK),  i.e.,  is  made  to  point  into  the  block. 

38.  SUBROUTINE  SETACC  (set  uniform  acceleration  parameters) 

This  routine  sets  the  values  in  the  acceleration  parameter  array, 
ACC,  to  the  argument  ACCPAR  in  a  block  Identified  by  NBLK  in  COMMON 
/SECTN/ .  The  block  limits  are  received  in  the  argument  CMAX.  The  opera¬ 
tion  is  in  a  set  of  three  nested  loops. 

39.  SUBROUTINE  SETIMG 

Since  only  a  single  block  is  in  core  at  a  time,  the  image  points  in 
a  block  are  grouped  according  to  the  object  block  to  minimize  the  ac¬ 
cesses  to  storage  during  the  setting  of  values  at  image  points.  This 
subroutine  sorts  the  image  points  in  a  block  toward  that  end. 

The  image  points  for  the  block  are  stacked  in  the  array  LINK(-3: 
3,DIMI),  where  the  second  subscript  counts  the  points.  The  limit  DIMI  is 
set  in  a  parar’eter  statement  which  can  be  changed  by  a  global  edit. 
There  is  a  separate  array  for  each  block,  all  of  which  are  kept  on  stor¬ 
age  with  the  other  block  arrays.  The  first  subscript  identifies  the  in¬ 
dices  of  the  image  point  and  its  object  point  as  follows: 

-1 ,-2,-3  :  curvilinear  coordinates,  ^^(i=1,2,3),  of  image  point. 

0  :  object  point  block  number. 

1,2,3  :  curvilinear  coordinates,  ^^(i=1,2,3),  of  object  point. 


The  array  LINI(DIMB)  contains  the  total  number  of  image  points  in  the 
block,  and  the  array  LINB(DIMB)  contains  the  total  number  of  object 
blocks  associated  with  image  points  in  the  block.  These  three  arrays 
are  kept  on  storage  for  each  block. 

The  image  points  for  the  block,  say  IB,  are  sorted  in  the  array 
LINK  so  that  all  points  having  object  points  in  a  single  block,  say  B, 
are  together.  The  locations  of  the  first  and  last  image  points  in  LINK, 
i.e.,  the  values  of  the  second  subscript  thereof,  are  in  the  array 
LINL(2 ,DIMB ,DIMB ) ,  where  the  second  subscript  is  the  block  number  of  the 
block,  B,  containing  the  object  points  and  the  third  subscript  is  that 
of  the  block,  IB,  containing  the  image  points.  The  first  subscript 
identifies  the  first  (i)  and  last  (2)  locations  in  LINK  of  all  the  im¬ 
age  points  in  block  IB  having  object  points  in  block  B. 

The  subroutine  first  sweeps  the  block  indicated  by  the  argument  IB 
in  three  nested  loops  over  the  three  curvilinear  directions,  placing  all 
image  points,  i.e.,  with  TYPE»" IMAGE" ,  in  the  array  LINT(- 3: 3»DIMI )  se¬ 
quentially  as  they  are  encountered.  The  first  subscript  here  functions 
as  does  that  of  the  array  LINK,  and  the  second  simply  counts  the  points 
as  they  are  entered.  The  total  number  of  image  points  in  the  block  is 
recorded  as  NT. 

A  loop  is  then  made  over  the  second  subscript  of  LINT,  counting  the 
number  of  Image  points  having  object  points  in  each  block,  this  being 
recorded  in  the  array  LINC(DIMB)  for  each  block.  From  this  Information, 
the  starting  locations  in  LINK  for  each  group  of  image  points  having 
object  points  in  a  single  block  are  determined  and  placed  in  the  array 


LINP(DIMB).  Finally,  the  image  points  in  the  array  LINT  are  sorted  into 
the  array  LINK  by  object  blocks.  The  arrays  LINK,  LINL,  LINB,  and  LINI 
are  returned  for  later  use  in  setting  values  at  image  points. 

40.  SUBROUTINES  SETIMO  and  SETIMI  (image-object  correspondence) 

These  routines  set  the  image-object  correspondence  on  a  cut  section 
in  a  block  (identified  by  NBLK)  defined  by  START  and  END  in  COMMON 
/SECTN/.  The  object  section  of  the  cut  is  that  in  block  NBLK  defined  by 
START  and  END,  and  the  image  section  is  in  block  IB  defined  by  ISTART 
and  lEND,  these  latter  three  quantities  being  received  as  arguments. 

All  other  parameters  mentioned  below  are  also  received  as  arguments. 

(One  pair  of  corresponding  entries  in  START  and  END,  and  one  pair  in 
ISTART  and  lEND,  will  be  equal,  of  course).  The  object  block  is  treated 

by  SETIMO,  and  the  image  block  by  SETIMI. 

In  SETIMO,  a  set  of  nested  loops  over  the  object  section  defined  by 
START  and  END  sets  TYPE  equal  to  "FIELD"  for  all  points  on  the  section 
for  which  TYPE  is  not  presently  equal  to  "FIX".  If  the  cut  is  for  an 
edge  in  3D,  or  a  point  in  2D,  no  further  action  is  taken  by  this  sub¬ 
routine.  The  section  limits  for  both  the  object  and  image  sections  are 
saved  and  then  both  of  these  sections  are  extended  by  one  point  off  all 
edges  in  each  direction  in  which  START  and  END  are  not  equal  by  re¬ 
setting  START  and  END  for  the  object  section,  and  analogously  for  the 


image  section. 


The  routine  next  determines  whether  the  object  and  image  sections 


are  on  the  1  or  CMAX  side  of  the  block  in  order  to  locate  the  appropri¬ 
ate  sections  on  the  surrounding  layers.  The  location  of  the  adjacent 
image  surrounding  layer  outside  the  object  block  is  set  in  the  array 
LAP(3),  and  the  object  in  the  image  block  of  this  image  is  set  in  ILAP: 
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Thus  LAP  is  set  to  +1  or  -1  as  the  object  section  is  on  the  CMAX  or  1 
side  of  the  object  block,  while  ILAP  is  set  to  -1  or  +1  for  the  image 
section  on  the  CMAX  or  1  side  of  the  image  block.  The  object  section  is 
then  swept  by  a  set  of  three  nested  loops  from  the  extended  START  to 
END.  The  Innermost  of  those  loops  is  over  the  curvilinear  coordinate 
direction  identified  by  S(l),  etc.  Inside  this  set  of  loops,  there  is  a 
progression  over  the  image  section  from  ISTART  to  lEND  with  the  inner¬ 
most  segment  of  this  progression  being  in  the  coordinate  direction, 
etc. : 


2U3 


START  ISTART 


END  TEND 


ORDER  =  2,3,1 

This  set  of  loops  sets  TYPE  equal  to  "IMAGE"  at  all  points  on  the  adja¬ 
cent  image  layer  outside  the  object  block  and  places  the  curvilinear 
coordinates  of  the  corresponding  object  points  inside  the  image  block  in 
the  IMAGE  array; 


TYPE  at  LC  set  t;  "IMAGE"  IMAGE  at  '-C  set  to  ILC 


In  these  loops,  DC (3)  and  IDC(3)  indicate  the  direction  of  progression 
on  the  object  and  image  sections  with  values  of  + I  if  END  >  START,  or  -1 
otherwise,  etc.  The  point  on  the  object  section  is  C(3),  and  the  corre¬ 
sponding  point  on  the  image  section  is  IC(3),  while  the  point  on  the 
surrounding  layer  adjacent  to  C  is  LC(3)  and  that  adjacent  to  IC  inside 


the  image  block  is  ILC(3).  If  a  second  surrounding  layer  is  called  for, 
this  procedure  also  makes  the  analogous  assignments  for  this  second 
image  layer  outside  the  object  block  and  its  corresponding  object  inside 
the  image  block,  using  LLC(3)  and  ILLC(3)  in  the  roles  of  LC  and  ILC: 
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Before  leaving  SETIMO ,  the  section  limits  on  both  the  object  and  image 
sections  are  restored  to  their  original  unextended  values. 

A  similar  set  of  loops  in  SETIMI  sets  TYPE  equal  to  "IMAGE"  at  all 
points  on  the  image  section  that  have  not  been  classified  "FIX".  If  the 
cut  is  for  an  edge  in  3D,  or  a  point  in  2D,  no  further  action  is  taken 
by  this  subroutine.  If  the  extent  of  the  cut  was  contracted  by  subrou¬ 
tine  MO  VEIN,  the  original  extent  is  restored  on  the  image  face  so  that 
FIX,  ORTHOG,  and  NEUMANN  points  adjacent  to  the  actual  cut  can  be 
checked  for  imaging  to  points  on  the  object  face.  The  extent  of  the  cut 
is  recontracted  before  the  surrounding  layer  adjacent  to  the  image  face 
is  treated.  The  section  limits  are  then  saved  and  extended,  and  TYPE  is 
set  to  "IMAGE"  at  all  points  on  the  extended  adjacent  image  layer  out¬ 
side  the  image  block.  The  curvilinear  coordinates  of  the  corresponding 
object  points  for  each  of  these  are  placed  in  the  IMAGE  array.  In  these 
loops,  DC  and  IDC  serve  as  set  in  SETIMO.  Again  the  point  on  the  object 
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section  is  C,  and  that  on  the  image  section  is  IC.  The  adjacent  point 
on  the  layer  outside  the  image  block  is  MC(3),  and  the  corresponding 
point  inside  the  object  block  is  IMC(3): 


NBLK  1 
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IB 

IMC  1 
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■  C  MC  { 
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'  IC 

TYPE  at  IC  set  to  "IMAGE" 

IMAGE  at  IC  set  to  C 

TYPE  at  MC  set  to  "IMAGE" 

IMAGE  at  MC  set  to  IMC 

Again  a  second  outer  layer  is  set  up  if  called  for,  using  MMC(3)  and 
IMMC(3)  in  the  roles  of  MC  and  IMC. 

All  these  operations  are  done  in  separate  routines  for  the  object 
block  (by  SETIMO )  and  for  the  image  block  (by  SETIMI )  in  order  to  avoid 
repetitive  accesses  to  the  disk. 

In  SETIMO,  TYPE  is  set  to  "FIELD",  only  at  all  points  on  the  object 
section  defined  by  START  and  END  that  are  presently  classified  as  "IM¬ 
AGE".  This  prevents  points  such  as  "ORTHOG"  points,  etc.,  from  being 
reclassified  as  field  points.  (Recall  that  the  default  for  all  points 
on  the  block  is  "FIELD".)  Also  the  setting  of  points  on  the  adjacent 
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imago  layer  in  SETIMO  and  SETIMI  Is  done  only  for  points  presently  clas¬ 
sified  as  "OUT".  This  prevents  the  reclassification  of  previously  set 
up  image  points. 

In  SETIMI,  points  on  the  image  section  defined  by  ISTART  and  lEND 
are  classified  "IMAGE"  only  if  the  present  classification  is  either 
"FIELD"  or  "OUT".  This  also  is  to  avoid  the  reclassification  of 
"ORTHOG"  points,  etc. 

41.  SUBROUTINE  NEUIOX  (set  Neumann  index  array) 

This  routine  sets  up  the  index  array  IDXRR  for  the  Neumann  boundary 
points  in  a  block  identified  by  NBLK  in  COMMON/ SEC TN/ . 

In  a  loop  over  all  the  Neumann  sections  that  have  been  created  for 
the  block,  the  curvilinear  coordinate  that  is  constant  on  the  section  is 
obtained  from  NEUNOR.  The  limits  of  the  section  (IS1 ,IS2)  and  (IE1 ,IE2) 
are  obtained  from  NEUBON ,  and  the  number  of  points  on  each  side  are 
placed  in  IT1  and  IT2.  The  current  value  of  the  integer  DMRR  (which  was 
set  to  0  before  the  first  section)  is  entered  in  the  index  array  IDXRR, 
DMRR  Is  incremented  by  the  number  of  points  on  the  section,  IT1*IT2, 
and  the  total  number  of  Neumann  points  in  all  blocks,  MXNEU ,  is  incre¬ 
mented  by  DMRR  and  is  checked  against  the  limit  DMNT. 

42.  SUBROUTINE  ORIDX  (set  orthogonal  index  array) 

This  routine  sets  up  the  index  array  IDXRO  for  the  orthogonal 
boundary  points  in  a  block  defined  by  NBLK  in  COMMON/ SECTN/ .  The  opera¬ 
tion  is  the  same  as  that  of  NEUIDX,  with  the  letters  RR  replaced  by  RO 
and  with  NEU  replaced  by  ORT  in  all  occurrences. 
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^3.  SUBROUTINE  JACBCK  (check  for  twisted  system) 

This  routine  checks  all  FIELD  points  in  a  block  identified  by  NBLK 
in  COMMON/SECTN/  for  zero  or  negative  Jacobians.  The  limits  of  the  block 
are  received  in  the  argument  CMAX.  All  "FIELD"  points  in  the  block  are 
swept  in  a  nest  of  three  loops,  and  the  Jacobian,  /g  =  §^*(§2  ^  83^*  is 
calculated  and  checked  for  non-positive  values.  If  any  zero  values  are 
found,  a  message  is  printed  to  that  effect  and  the  code  stops  unless 
CHECK  has  been  set  to  "NO"  during  the  input  phase,  in  which  case  the 
initial  grid  is  output  and  then  the  code  stops.  Negative  values  for  the 
Jacobian  result  in  a  message  indicating  a  left-handed  system,  and  the 
subsequent  action  is  the  same  as  for  zero  values,  except  that  the  code 
continues  if  CHECK  is  not  equal  to  "YES"  or  "NO". 

4H.  SUBROUTINE  EXTCOR  (coordinate  extrema) 

This  routine  determines  the  extremes  of  the  Cartesian  coordinate 
values  in  a  block  identified  by  NBLK  in  COMMON/SECTN/.  The  block  limits 
are  received  in  the  argument  CMAX.  The  extreme  values  of  each  of  the 
three  Cartesian  coordinates  are  determined  in  a  set  of  four  nested 
loops.  These  extremes  are  printed,  and  a  coordinate  scale  factor  is  set 
to  the  largest  span  in  the  three  directions. 

45.  SUBROUTINE  CONFUN  (assemble  control  functions) 

This  routine  calculates  the  control  functions  (in  the  array  P)  at 
all  FIELD  points  from  the  interpolated  values  of  the  arc  length  contri¬ 
bution  (in  P),  the  spacing  (in  SPACE),  and  the  radius  of  curvature  (in 
RAD)  for  a  block  identified  by  NBLK  in  COMMON/SECTN/.  The  block  limits 
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are  received  in  the  argument  CMAX.  This  is  done  in  three  nested  loops, 
calculating  all  three  control  functions  in  3D,  but  only  and  P2  in  2D, 
as  signaled  by  the  argument  IDIR. 

46.  SUBROUTINE  EXTCON  (control  function  extrema) 

This  routine  determines  the  extrema  of  the  control  functions  in  a 
block  identified  by  NBLK  in  COMMON/ SEC TN/ .  The  limits  of  the  block  are 
received  in  the  argument  CMAX.  The  operation  is  in  a  set  of  four  nested 
loops,  after  which  the  extrema  and  their  locations  are  printed. 

47.  SUBROUTINE  NEUPTS  (values  at  Neumann  points) 

This  routine  sets  values  of  the  Cartesian  coordinates  at  Neumann 
boundary  points  in  a  block  identified  by  NBLK  in  COMMON/SECTN/ . 

Neumann  points  are  moved  on  a  splined  boundary  so  that  the  grid  is 
orthogonal  to  that  boundary.  The  routine  checks  the  Neumann  section 
counter,  NEUNUM,  for  each  block  for  the  presence  of  sections  of  Neumann 
points.  (The  various  arrays  involved  here  have  been  explained  in  Sec¬ 
tion  II-C5.  ) 

Foi"  each  Neumann  section  in  block  B,  the  curvilinear  coordinate 
that  is  constant  on  the  section  is  obtained  as  the  absolute  value  of 
NEUNOR,  and  the  sign  index,  L,  is  set  to  the  sign  of  NEUNOR ,  this  being 
positive  for  a  lower  boundary  and  negative  for  an  upper.  With  N  set  to 
the  curvilinear  direction  off  the  surface  section,  N1  and  N2  are  set,  in 
cyclic  order  with  N,  to  the  two  directions  on  the  section.  The  value  of 
the  (constant)  curvilinear  coordinate  on  the  section  is  obtained  from 
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NEUBON  with  N  as  the  first  argument  and  is  placed  in  C(N).  The  limits 
of  the  section  are  obtained  from  NEUBON  with  N1  and  N2  as  the  first 
argument  and  placed  in  (IS1 ,IS2)  and  (IE1,IE2); 


constant 


The  number  of  points  on  each  edge  of  the  section  is  set  in  IT1  and  IT2 
for  the  two  directions  on  the  section. 

The  section  is  then  swept,  with  the  coordinates  of  the  current 
point  on  the  section  set  in  C(N1)  and  C(N2).  Each  point  on  the  section 
that  is  designated  "NEUMANN"  (or  with  the  last  N  replaced  by  1,2,  or  3) 
is  moved  on  the  spllned  section  so  that  the  (straight)  grid  line  from 
the  adjacent  point  in  the  field  is  normal  to  the  section.  The  foot  of 
this  normal  is  thus  the  new  location  of  the  Neumann  point  on  the  sec¬ 
tion.  This  is  done  as  follows. 

With  the  curvilinear  coordinates  of  the  Neumann  point  on  the  sec¬ 
tion  set  in  C(i)  for  i=1,2,3t  as  described  above,  those  of  the  adjacent 
field  point  are  C( i )+L»D ( i ,N )  where  D(l,j)  is  the  Kroneker  delta  array. 
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C(i)  +  L*Dfi,N) 


These  coordinates  of  the  field  point  are  placed  in  IDX1 ,IDX2,IDX3. 

The  Neumann  point  on  the  section  currently  closest  to  this  field 
point  is  first  located  and  its  coordinates  are  placed  in  CC.  This  is 
done  by  sweeping  the  section  in  ever  expanding  squares  centered  on  the 
Neumann  point  at  C.  (These  squares  are  actually  limited  by  the  section 
edges,  of  course,  and  hence,  may  become  rectangles.) 


The  Cartesian  coordinates  of  the  Neumann  point  C  are  obtained  from  the 
section  array  RR  with  the  second  subscript  0  and  the  point  location  in 
this  array  (the  third  subscript)  given  by  the  index  function  NDXRR  in 
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terms  of  the  current  relative  section  coordinates  of  the  point  CC,  i.e., 
CC(N1)-IS1+1  and  CC (N2)-IS2+ 1 .  The  Cartesian  coordinates  of  the  field 


point  at  C+L*D  are  obtained  from  the  field  array  R.  The  relative  sec¬ 
tion  coordinates  of  the  closest  point  are  placed  in  Cl  and  C2,  and  its 
index  in  the  section  array  RR  is  calculated  from  the  index  function 
NDXRR  and  is  placed  in  NDX. 

Next  the  quadrant  about  this  closest  point  above  which  the  field 
point  lies  is  determined  by  comparing  the  dot  products  D0T1  and  D0T2  of 
the  vector  from  the  closest  point  to  the  field  point,  DRS  (i,N,1),  with 
the  tangent  vectors  to  the  two  grid  lines  on  the  section  obtained  from 
the  section  array  RR  with  the  second  subscript  set  to  1  and  2.  The 
quadrant  is  identified  by  the  signs  of  these  two  dot  products,  placed  in 
L1,L2,  where  values  of  +1  indicate  the  upper  side  in  regard  to  the  two 
directions  on  the  section,  and  -1  indicates  the  lower  side. 


Here  LI  or  L2  for  the  third  direction  in  2D  is  set  to  0. 
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If  either  of  the  points  adjacent  to  the  closest  points  on  the 
quadrant  is  not  a  Neumann  point,  the  dot  product  of  the  vector  from  that 
adjacent  point  to  the  field  point  with  the  tangent  to  the  grid  line  on 
which  the  adjacent  and  closest  points  lie  is  formed: 


If  the  sign  of  this  dot  product  indicates  that  the  field  point  is  not 
over  the  quadrant  (positive  sign  in  the  case  shown),  the  appropriate 
initial  guess,  XI  or  X2,  and  residual  coefficient,  CFl  or  CF2,  is  set  to 
zero.  (Both  of  these  quantities  are  discussed  below.) 

The  Neumann  boundary  point  in  question  is  moved  to  the  foot  of  the 
normal  from  the  adjacent  field  point  to  the  surface.  This  position  is 
found  as  the  solution  of  the  nonlinear  system  (Eq.  F-5)  of  Appendix  F  by 
Newton  iteration.  The  location  of  the  closest  current  boundary  point  and 
the  examination  of  dot  products  described  above  has  determined  the 
surface  cell,  i.e.,  the  quadrant,  on  which  this  solution  lies: 
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(0,1) 


Here  u  and  v  vary  on  the  range  0-1  on  the  quadrant,  with  values  at  the 

N 1 

corners  as  shown.  (The  local  coordinate  u  corresponds  to  5  and  v  to 
The  indices  of  the  four  corner  points  in  the  section  array  RB  on 
the  quadrant  are  set  as  follows  from  the  index  function  NDXRR: 

Corner  Index  Coordinates  at  Corner 

NDXOO  Cl ,  C2 

MDX10  C1+L1,  C2 

NDX01  Cl,  C2+L2 

NDX11  C1+L1,  C2+L2 

Since  LI  and  L2  have  been  set  accor<iins  to  the  sign  of  the  dot  products 
described  above,  this  automatically  handles  all  four  possible  quadrants: 
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The  elements  of  the  matrix  Q  are  set  by  Eq.  (F-1)  from  the  section 
array  RB .  Here  and  are  in  RB  with  the  second  index  thereof 
at  0,1, 2, and  3i  respectively.  These  derivatives  are  multiplied  by  LI  for 
C  and  L2  for  n  to  account  for  the  change  in  the  direction  of  u  and  v  on 
the  different  quadrants. 

In  the  iterative  solution,  the  following  is  the  correspondence 
between  the  code  variables  and  the  notation  of  Appendix  F: 


XI  ,X2  : 

u,v  (solution) 

G1,G2  : 

F(u),F(v)  Eq.(F-3) 

GP1,GP2  : 

f'(u),f'(v)  Eq. (F-7) 

GPP1,GPP2  : 

f”(u),f"(v)  Eq.(F-lil) 

QG2  : 

qf'^(v) 

QGP2  : 

QF^^Cv) 

QGPP2  : 

Qf"(v) 

R  : 

B 

RP  : 

e  -  C  ”  B  -  F(u)Qf’^(v) 

RU  : 

f'(u)Qf'^(v)  =  Cu 

RV  : 

F(u)Qf'^(v)  -  Cy 

RUU  : 

f"(u)Qf'^(v)  =.  Cuu 

RUV  ; 

f' (u)Qf''^(v)  =  Cuv 

RVV  : 

F(u)Qf"(v)  =  Cyy 

RUM,RVM  : 

1  l-U  •  ’  1  '^v  1 

RURUU,RVRVV: 

*-U  *  ^UU’  '“V  *  *“VV 

RURUV,RVRUV: 

“^U  ’  ’'UV'  *^v  *  ’^uv 

RMM  : 

C  •  Cy 

DUU  : 

(B  c)  *  CCqu  •  Cmj 
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DVV 


DUV  : 

DVU  : 

FU,FV  ; 

FUU,FVV,FUV, 


(B  -  C)  •  CCvv  ~  (Cy  *  Cvv^Cy] 

(B  "  C)  *  ~  (Cy  *  Cj_|y)Cj^] 

(B  -  C)  •  CCuv  "(Cy  •  Cuy)Cy] 

FI ,F2  (residuals)  Eq.(F-8) 


FVU: 


a  Fu  3FV  aFu  aFv 

au  '  3v  *  3v’  3u 


Eq.  (F-12) 


=  HiF^ 

In  order  to  allow  for  the  2D  case,  FU  and  FV  are  multiplied  by  CF1  and 
CF2,  respectively,  these  by  1  in  general  but  0  when  the  corresponding 
direction  is  that  of  Invariance  in  2D.  During  the  iteration  XI  and  X2 
are  confined  to  the  range  0-1,  i.e.,  are  not  allowed  to  leave  the  cell 
on  which  the  spline  coefficients  have  been  set. 

If  the  Neumann  point  is  classified  as  "NEUMANi",  where  the  i  is 
1,2,  or  3»  the  movement  of  the  point  on  the  boundary  is  restricted  to  be 
along  lines  on  which  the  curvilinear  coordinate  varies  if  is  not 
constant  on  the  surface.  This  is  accomplished  by  setting  the  coefficient 
CF1  or  CF2  corresponding  to  the  restricted  direction  to  zero  and  the 
corresponding  XI  or  X2  also  to  zero. 

The  iteration  continues  until  the  convergence  tolerance,  FTOL,  is 
reached,  or  until  the  maximum  allowed  number  of  iteratives,  ITM,  is 
reached,  in  which  latter  case  the  code  stops.  The  convergence  tolerance 
FTOL  is  1$  of  the  distance  from  the  "FIELD"  point  (that  is  adjacent  to 
the  Neumann  points)  to  the  closest  boundary  point. 
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Upon  convergence  of  the  iteration,  the  position  of  the  foot  of  the 
normal  is  calculated  from  Eq.(F-2),  with  the  notation  V(_,1)  and  V(_,2) 
for  F(u)  and  F(v),  QB  for  QF(v),  with  this  new  boundary  point  position 
being  placed  in  R. 

This  routine  includes  extrapolation  boundary  conditions  (zero 
curvature),  as  well  as  the  original  orthogonal  boundary  conditions,  the 
former  being  indicated  by  the  value  "EXTRAP"  in  SPAN. 

The  unit  tangent  to  the  incoming  grid  line  intersecting  the  surface 
is  calculated  from  the  first  two  points  off  the  surface  and  is  placed  in 
DRS(3,N,0) 


With  extrapolation  boundary  conditions,  the  "nearest  point"  search 
is  for  the  present  boundary  point  making  the  smallest  angle  with  this 
unit  tangent: 


Here  DIST  =  sln^ot. 
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The  dot  products  used  to  determine  the  quadrant  in  this  case  are 
formed  by  first  forming  the  cross  product  of  the  tangent  to  the  incoming 
grid  line  (in  DRS(i,N,0))  with  the  vector  from  the  closest  current 
boundary  point  to  the  field  point  (in  DRSd.N.I)),  and  then  dotting  this 
vector  into  the  tangent  vectors  to  the  two  grid  lines  on  the  section  (in 
RR  with  the  second  subscript  as  1  and  2): 


Here  DOTl  is  the  negative  of  the  dot  product  of  this  cross  product  with 
the  tangent  c  j^2  DRS(i,N,2),  and  DOT  is  the  dot  product  with  c  fji  in 

C  C 

DRS(i,N,1 ). 

In  this  case  the  Newton  iteration  operates  with  the  system  given  in 
Appendix  J. 

The  notation  in  this  case  includes  some  of  that  given  above  in  this 
section  and  the  following  (cf.  Appendix  J); 
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x3  :  3 

F  :  E  Eq.  (J-2) 

DR  :  J  Eq.  (J~4) 

V  :  F(u),  F(v)  Eq.  (F3) 

QB  :  Qf'^(v) 

48.  SUBROUTINE  REFPTS  (values  at  reflective  points) 

This  routine  sets  values  of  the  Cartesian  coordinates  at  reflective 
boundary  points  in  a  block  identified  by  NBLK  in  COMMON/SECTN . 

The  field  is  swept  setting  the  values  at  points  with  TYPE  equal  to 
"REFLECT",  which  lie  on  the  surrounding  layer  outside  the  boundary  and 
where  the  grid  is  to  reflect  in  the  boundary  as  in  a  mirror-image. 

Each  block  is  examined  for  reflective  point  sections,  these  being 
numbered  in  REFNUM.  (This  and  the  other  arrays  involved  here  have  been 
described  in  Section  II-C8).  For  each  reflective  section,  the  curvi¬ 
linear  coordinate  that  is  constant  thereon  is  obtained  as  the  absolute 
value  of  REFNOR,  the  sign  of  which  indicates  a  lower  or  upper  boundary 
as  +  or  -1.  The  value  of  the  curvilinear  coordinate  C(N)  that  is  con¬ 
stant  on  the  section  is  obtained  from  REFBON,  and  the  section  limits  are 
obtained  from  REFBON: 
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The  section  is  then  swept,  determining  the  normal  component  of  the 
vector  R  from  the  interior  point  adjacent  to  the  boundary  point  that  is 
adjacent  to  the  point  in  question,  and  resetting  the  reflective  point 
as  in  the  following  diagram,  where  q  is  the  unit  outward  normal: 


The  notation  here  is  C(N1)  and  C(N2)  for  the  curvilinear  coordinates  of 
the  reflective  point,  REFDIR  for  the  normal  q,  and  A  for  2(B*d). 

49.  SUBROUTINE  R2DPTS  (values  on  adjacent  planes  in  2D) 

This  routine  sets  values  of  the  first  two  Cartesian  coordinates  on 
the  adjacent  layers  in  the  third  direction  of  a  2D  system  in  a  block 
identified  by  NBLK  in  COMMON/SECTN/ .  The  last  action  of  this  routine  is 
to  set  the  values  of  the  Cartesian  coordinates  on  the  layers  at  ^^=0  and 
^^=2  equal  to  those  at  if  the  grid  is  two-dimensional.  (The  values 
of  the  third  Ca’^tesian  coordinate  remain  set  to  -1.0  and  +1.0,  respec¬ 
tively,  at  C^=0  and 
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50.  SUBROUTINE  AVGCON  (control  functions  at  average  points) 

This  routine  sets  the  control  functions  to  zero  at  AVERAGE  points 
in  a  block  identified  by  NBLK  in  COMMON/ SECTN/ .  The  field  is  swept 
setting  the  control  functions  to  zero  at  points  with  TYPE  equal  to 
"AVERAGE"  . 

51.  SUBROUTINE  REFCON  (control  functions  at  reflective  points) 

This  routine  sets  the  control  functions  at  reflective  boundary 
points  in  a  block  Identified  by  NBLK  in  COMMON/SECTN .  Each  block  is 
examined  for  sections  of  reflective  points,  counted  in  REFNUM.  (This 
and  the  other  arrays  involved  here  have  been  discussed  in  Section 
II-C8).  On  each  reflective  section,  the  curvilinear  direction  off  the 
section  is  obtained  as  the  absolute  value  of  REFNOR,  and  the  section 
limits  are  obtained  from  REFBON.  The  variable  L  is  set  to  the  sign  of 
REFNOR,  i.e.,  I  for  a  lower  surface  and  -1  for  an  upper.  The  control 
functions  for  the  two  curvilinear  directions  on  the  section  are  set 
equal  to  those  at  the  interior  point  adjacent  to  the  section  and  on  the 
same  coordinate  line.  The  third  function  is  set  to  the  negative  of  that 
at  this  interior  point. 

52.  SUBOU  ilNE  BONCON  (control  functions  on  boundary  points) 

This  routine  sets  the  control  functions  at  fixed,  Neumann,  and 
orthogonal  boundary  points  in  a  block  identified  by  NBLK  in  COMMON/SECTN 
by  extrapolation  from  interior  values.  The  control  functions  at 

"FIX" , "NEUMANN" ,  and  "ORTHOG"  points  are  set  equal  to  averages  of  the 
values  at  all  the  adjacent  "FIEU)" ," IMAGE" ,  and  "REFLECT"  points  (Image 
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and  reflective  points  on  the  surrounding  outer  layers  are  not  Included 
in  the  average  here).  Control  functions  at  isolated  FIX  points  are  set 
to  zero. 

53.  SUBROUTINE  DFCON  (default  control  functions) 

This  subroutine  simply  sets  the  control  functions  at  all  points  to 
"NONE"  so  that  improperly  set  values  can  be  recognized. 

S'!.  SUBROUTINE  CUTCON  (control  functions  on  cut) 

This  subroutine  sets  the  control  functions  on  cuts  to  averages  of 
the  values  across  the  cut.  The  six  sides  of  the  block  in  question  are 
swept,  and  all  three  control  funr  ions  are  averaged  at  all  "FIELD" 
points  on  the  sides.  The  average  includes  only  curvilinear  directions 
having  an  "IMAGE"  point  adjacent  to  the  point  on  the  side,  and  in  thus 
is  across  the  cut,  not  along  the  cut. 


55.  SUB/WTINE  CHKTYP  (check  for  bad  field  points) 

This  subroutine  checks  all  "FIELD"  points  for  adjacent  "OUT"  points 
and  stops  if  any  are  found,  printing  the  26  (8  in  2D)  surrounding  point 


classifications. 


56.  SUBROUTINE  CHKSUB  (check  sub-block  coverage) 


This  subroutine  checks  a  block  for  a  sub-block  structure  that  does 
not  include  all  points  in  the  block.  The  routine  first  initializes  the 
array  RAD  to  0  for  all  points  in  the  block,  and  then  sweeps  all  the 
sub-blocks  in  the  block  resetting  RAD  to  1.  The  entire  block  is  then 
swept  again,  searching  for  zero  values  of  RAD  at  points  not  classified 
"OUT"  . 


57.  SUBROUTINE  CHKINT  (check  sub-block  interior  values) 

This  subroutine  checks  a  block  for  interior  points  where  values 
have  been  set  for  the  Cartesian  coordinates,  setting  ITRANS  to  "SUB"  if 
any  such  point  is  found,  or  to  "ALL"  otherwise.  The  presence  of  set 
values  means  that  a  sub-block  structure  is  to  be  assumed  for  the  inter¬ 
polation  for  the  algebraic  grid  (cf.  Section  I-C16). 

58.  SUBROUTINE  CHKSET  (check  set  values) 

This  subroutine  checks  a  block  for  "FIELD"  points  tnat  are  adjacent 
to  points  at  which  no  initial  values  have  been  set.  This  is  done  by 
sweeping  all  points  in  the  block  and  checking  the  array  R  at  the  26 
adjacent  points  (8  in  2D)  for  values  that  have  not  been  changed  from 
"NONE" . 

59.  SUBROUTINE  LIM  (image  section)  -  (no  longer  used) 

This  routine  determines  the  sections  of  a  block  that  have  image 
points.  The  block  is  identified  by  the  argument  IB.  The  block  limits 
are  received  as  the  arguments  Ml,  M2,  and  M3,  and  the  number  of  sur- 
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rounding  layers  is  given  by  the  argument  M.  A  non-zero  value  of  the 


argument  IMGF  Indicates  the  presence  of  image  points  in  the  interior  of 
the  block.  The  lower  and  upper  block  limits  are  set  in  the  arrays 
NL0(3)  and  NUP(3).  For  a  2D  system,  the  limits  in  the  third  direction 
are  reset  to  1 . 

Since  image  points  are  more  likely  to  occur  on  the  block  boundaries 
and  on  the  surrounding  layers,  the  sweep  of  the  block  is  divided  into 
separate  sweeps  over  each  of  the  boundary  sides  and  the  surrounding 
sides  and  finally  over  the  interior.  There  may  be  two  surrounding 
layers  (Section  I-B3),  and  the  boundary  sides  and  surrounding  sides  on 
which  one  curvilinear  coordinate  is  constant  are  numbered  as  shown  below 
in  each  direction: 


The  total  number  of  such  sides  in  each  direction  is  2(M+1),  where  M  is 
the  number  of  surrounding  layers,  and  this  number  is  placed  in  the  array 
LNUM(0:3)  with  the  subscript  at  1,2,  and  3  fon  the  three  directions. 
Also  LNUM  (0)  is  set  to  1  if  there  are  any  image  points  in  the  interior 
of  the  block,  or  to  0  otherwise.  Thus  LNUM  gives  the  number  of  loops  to 
be  done  to  cover  the  block.  (Some  duplication  occurs  on  the  edges,  of 
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course.)  The  limits  for  each  of  these  loops  are  placed  in  the  arrays 
LLO  and  LUP,  which  are  dimensioned  (0:3, 3,6).  Here  the  first  subscript 
refers  to  the  direction  or  the  interior  (as  in  LNUM)  the  last  to  the 
side  (as  in  the  figure  above)  and  the  second  subscript  refers  to  the 
direction  to  which  the  limits  apply.  (For  the  interior,  only  a  1  for 
the  last  subscript  is  relevant.) 

The  sweep  of  the  block  then  will  be  conducted  as  an  outer  loop  of 
N=0  to  3,  within  which  there  is  a  loop  of  L  from  1  to  LNUM(N)  if  LNUM(N) 
is  not  zero.  Inside  this  last  loop  there  is  a  nest  of  three  loops  from 
LL0(N,i,L)  to  LUP(N,i,L)  to  cover  the  particular  side  (on  the  interior 
if  N=0).  In  this  way  all  points  on  each  side  of  the  block,  and  on  the 
surrounding  layer,  are  swept  before  proceeding  to  other  points,  thus 
minimizing  the  reading  of  adjacent  blocks  into  core, 

60.  SUBROUTINE  SSDW  (block  to  file) 

This  routine  writes  a  block,  identified  by  the  integer  argument  B, 


onto  a 

disk  file. 

The  file  number 

is 

BASE+B, 

where 

BASE  is  an  integer 

set  in 

a  PARAMETER 

statement  which 

can 

be  changed  by 

a  global  edit. 

The 

arrays 

R  ,P, TYPE, RAD 

,SPACE, IMAGE, ACC 

,RR, 

,R0,  and 

LINK 

are  written  to 

the 

file  after  a  rewind 
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61.  SUBROUTINE  SSDR  (block  from  file) 

This  routine  reads  a  block,  identified  by  the  integer  argument  B, 
from  a  disk  file.  The  file  number  is  BASE+B,  where  BASE  is  an  integer 
set  in  a  PARAMETER  statement  which  can  be  changed  by  a  global  edit.  The 
arrays  R ,P .TYPE , RAD .SPACE , IMAGE ,ACC ,RR ,R0 ,  and  LINK  are  read  from  the 
file  after  a  rewind. 

62.  SUBROUTINE  SSD 1  (coordinate  array  from  file) 

This  routine  reads  the  coordinate  array  R  for  the  block  identified 
by  the  integer  argument  B  from  a  disk  file  into  the  argument  array  F. 
The  file  is  the  same  as  used  in  SSDR  and  SSDW. 

63.  SUBROUTINE  SSD3  (coordinate,  control  function,  and  type  array  from 

file) 

This  routine  reads  the  coordinate  array  R,  the  control  function 
array  P,  and  the  point  type  array  TYPE  for  the  block  identified  by  the 
integer  argument  B  from  a  disk  file  into  the  argument  arrays  F,G,  and  I, 
respectively.  The  file  is  the  same  as  used  in  SSDR  and  SSDW. 

6^.  SUBROUTINE  CCDW  (block  to  master  core  arrays) 

This  routine  writes  a  block  identified  by  the  integer  argument  B 
into  the  master  core  arrays.  The  field  arrays  R,  P,  SPACE,  RAD,  IMAGE, 
ACC,  TYPE,  RR,  RO,  and  LINK  are  written  into  the  corresponding  storage 
arrays  in  COMMON/SSDFL/  as  described  in  Section  II-A5. 


65.  SUBROUTINE  CCDR  (block  from  master  core  arrays) 

This  routine  reads  a  block  Identified  by  the  inter  argument  B  from 

•  the  master  core  arrays.  The  field  arrays  R,  P,  SPACE,  RAD,  IMAGE,  ACC, 
TYPE,  RR,  RO,  and  LINK  are  written  from  the  corresponding  storage  arrays 
in  COMMON/SSDFL/  as  described  in  Section  II-A5. 

66.  SUBROUTINE  CCD1  (array  from  master  core  array) 

This  routine  reads  the  argument  array  F  from  the  argument  master 
core  a.’ray  FF  for  a  block  identified  by  the  integer  argument  B.  Here  F 
may  correspond  to  R,P, SPACE,  or  RAD. 

67.  SUBROUTINE  CCD2  (point  type  array  from  master  core  array) 

This  routine  reads  the  point  type  array  TYPE  from  the  master  core 
array  for  the  block  identified  by  the  Integer  argument  B. 

68.  SUBROUTINE  CCD 3  (three  arrays  from  master  core  array) 

This  routine  reads  the  argument  arrays  F,  G,  and  I  from  the  argu¬ 
ment  master  core  arrays  FF,  GG,  and  II,  respectively,  for  the  block 
identified  by  the  integer  argument  B.  Here  F  and  G  may  be  any  of  the 
arrays  R,P, SPACE,  or  RAD,  but  I  must  be  the  TYPE  array. 

69.  SUBROUTINE  READF  (input  points  from  file) 

This  routine  reads  a  section  of  grid  points  from  an  input  file  into 

•  the  coordinate  array  R.  The  Cartesian  coordinates  of  the  points  in  a 
section  of  a  block  identified  by  START  and  END  in  COMMON/SECTN  are  read 
from  the  file  by  a  nest  of  four  loops.  The  innermost  loop  is  over 
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N=1,3,  reading  the  Cartesian  component  RS(N)  for  nonzero  entries  in  RS. 
The  outer  loops  are  over  the  three  curvilinear  coordinates  from  START  to 
END,  with  the  coordinate  S(1)  running  fastest,  etc.  Finally,  if 
CLASS="FIX"  all  the  points  in  the  section  will  be  so  classified  in  the 
array  TYPE.  The  parameters  RS  and  S  are  received  in  COMMON/ SEC TN/ , 
having  been  equivalenced  with  RORDER  and  ORDER  in  the  main  program. 
CLASS  is  received  as  an  argument.  If  IPRINT  is  equal  to  "YES",  the 
points  are  printed. 

70.  SUBROUTINE  READL  (input  points  from  NAMELIST) 

This  routine  reads  a  section  of  grid  points  from  the  NAMELIST  into 
the  coordinate  array  R.  The  operation  is  the  same  as  that  of  READF.  The 
Cartesian  coordinates  appear  in  the  NAMELIST  as  sequences  of  values  in 
the  one-dimensional  array  VALUES.  The  maximum  number  of  points  that  can 
be  read  from  the  NAMELIST  for  one  section  is  DIMP,  which  is  set  by  a 
PARAMETER  Statement  which  can  be  changed  by  a  global  edit.  If  IPRINT  is 
equal  to  "YES",  the  points  are  printed. 

71.  SUBROUTINE  PRTGRD  (print  grid) 

This  routine  prints  the  grid  for  a  section  in  a  block  defined  by 
START  and  END  in  COMMON/SECTN/ .  The  block  is  identified  by  NBLK,  also  in 
COMMON / SEC TN/ .  The  format  of  the  print  is  one  grid  point  per  line,  with 
the  type  and  the  three  Cartesian  coordinates  and  control  functions 
printed.  The  order  in  which  the  points  are  printed  is  controlled  by  a 
permutation  of  1,2,3  (not  necessarily  cyclic)  in  ORDER,  with  the  curvi¬ 
linear  coordinate  indicated  by  the  first  entry  of  ORDER  running  fastest. 
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The  order  in  which  the  Cartesian  coordinates  appear  on  the  line  is 


controlled  by  RS  in  a  similar  manner,  that  coordinate  indicated  by  the 
first  entry  in  RS  being  listed  first.  Zero  entries  in  RS  caused  the 
omitted  coordinate  not  to  be  printed.  Both  S  and  RS  are  defaulted  to 
1,2,3.  The  parameters  RS  and  S  are  in  COMMON/ SECTN/  and  are  equiva- 
lenoed  with  RORDER  and  ORDER,  respectively,  in  the  main  program. 

72.  SUBROUTINE  WRTPLT  (plot  file) 

This  routine  writes  the  Cartesian  coordinate  array,  R,  for  a  block 
identified  by  NBLK  in  COMMON/SECTN/  onto  file  8.  The  block  limits  are 
received  in  the  argument  CMAX.  The  operation  is  in  a  set  of  three  nested 
loops,  with  an  implied  loop  for  the  write.  The  form  is  unformatted  if 
FORM  is  "UNFORM",  E20.8  format  for  "E",  or  list-directed  "LIST". 

73.  SUBROUTINE  WRTXYZ  (file  grid  in  three  arrays) 

T.  Is  routine  writes  the  three  Cartesian  coordinates  unformatted 
onto  file  9  in  three  seperate  arrays  for  a  block  identified  by  NBLK  in 
COMMON/SECTN/.  The  block  limits  are  received  in  the  argument  CMAX.  The 
operation  is  in  three  nested  loops  setting  values  in  the  three  arrays 
X,Y,  and  Z  from  the  coordinate  array  R,  after  which  these  three  arrays 
are  written  to  the  file. 

74.  SUBROUTINE  WRTGRD  (file  grid  with  image  arrays) 

This  routine  writes  the  point  type  array  TYPE,  the  image  array 
IMAGE,  and  the  coordinate  array  R,  unformatted  onto  a  file  identified 
by  the  Integer  argument  GRIDFIL  for  a  block  identified  by  NBLK  in  COM- 


MON/SECTN/.  The  block  limits  are  received  in  the  argument  CMAX.  The 
operation  is  in  three  nested  loops,  with  implied  loops  over  the  compo¬ 
nents.  All  the  surrounding  layers  are  included. 

75.  SUBROUTINE  WRTRRR  (file  grid  only) 

This  routine  operates  as  does  WRTGRD ,  except  that  only  the  coordi¬ 
nate  array,  R,  is  written. 

76.  SUBROUTINE  WRTRES  (with  restart  file) 

This  routine  writes  the  field  arrays  R,  P,  TYPE,  RAD,  SPACE,  IMAGE, 
ACC,  RR ,  RO ,  and  LINK  on  file  7  for  restart. 

77.  SUBROUTINE  REDRES  (reads  restart  file) 

This  routine  reads  the  field  arrays  R,  P,  TYPE,  RAD  SPACE,  IMAGE, 
ACC,  RR,  RO,  and  LINK  from  file  7  for  restart. 

78.  SUBROUTINE  AITKEN 

This  subroutine  receives  the  current  and  preceding  values  of  an 
iterate  and  the  residual  in  the  solution  of  a  nonlinear  equation  and 
returns  a  new  iterate  for  Newton-Raphson  iteration.  The  current  iterate 
and  residual  are  received  as  the  real  arguments  X  and  F,  with  the  pre¬ 
ceding  values  in  the  real  arguments  XO  and  FO .  The  new  iterate,  re¬ 
turned  in  X,  is  calculated  from 
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where  a  parameter  (range  0-1)  is  received  as  the  real  argument  AC.  (At 
the  first  call,  X  is  simply  returned  as  1.01X.)  The  quotient  in  paren¬ 
theses  is  bounded  by  unity  and  is  also  set  to  unit  when  the  residual 

—  ft 

falls  below  a  set  minimum  (FMIN  =  10  ).  Each  iterate  will  be  printed 

if  the  integer  argument  IPRT  is  nonzero. 

79.  SUBROUTINE  SING,  COSG,  TANG,  ACOSG 

These  functions  return  the  hyperbolic  sine,  cosine,  tangent,  and 
inverse  cosine  if  the  real  parameter  FLAG,  transmitted  through 
COMMON/ HYP ER/ ,  is  less  than  unit  for  the  first  three,  and  if  the  magni¬ 
tude  of  the  argument  is  greater  than  unity  for  the  last.  Otherwise  the 
circular  functions  are  returned.  The  angle  is  received  as  the  real 
argument  ANG  in  radians  for  the  first  three  and  as  the  real  value  A  for 
the  last. 

80.  SUBROUTINE  CHKNEU  (checks  for  bad  Neumann  points) 

This  subroutine  checks  all  "NEUMANN"  points  for  adjacent  "OUT" 
points  and  stops  if  any  are  found,  printing  the  26  (8  in  2D)  surrouding 
point  classifications. 

81.  SUBROUTINE  CHKORT  (checks  for  bad  orthogonal  points) 

This  subroutine  checks  all  "ORTHOG"  points  for  adjacent  "OUT" 
points  and  stops  if  any  are  found,  printing  the  26  (8  in  2D ) surroi nding 
point  classifications. 
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82.  SUBROUTINE  CHKREF  (checks  for  bad  reflective  points) 


This  subroutine  checks  all  "REFLECT"  points  for  adjacent  "OUT" 
points  and  stops  if  any  are  found,  printing  the  26  (8  in  2D)  surrounding 
point  classifications. 

83.  SUBROUTINE  CHKCON  (checks  set  control  function  values) 

This  subroutine  checks  a  block  for  "FIELD"  points  that  are  adjacent 
to  points  at  which  no  control  functions  have  been  set.  This  is  done  by 
sweeping  all  points  in  the  block  and  checking  the  array  P  at  the  6 
directing  adjacent  points  (4  in  2D)  for  values  that  have  not  been 
changed  from  "NONE". 

84.  SUBROUTINE  READB  (reads  an  entire  file) 

This  routine  reads  a  boundary  segment  from  an  input  file  into  the 
storage  array  BDATA(3 ,DIMD )  when  an  entire  file  of  segments  is  being 
read  at  once.  The  total  number  of  points  on  the  entire  file  is  received 
as  the  argument  NTOT.  The  reading  is  done  as  in  READF  (Section  II-F69). 

85.  SUBROUTINE  READS  (input  points  from  storage  array) 

This  routine  transfers  a  section  of  grid  points  from  the  storage 
array  BDATA  into  the  coordinate  array  R.  The  operation  is  as  in  READF 
(Section  II-F69),  with  the  section  identified  by  BLOCK,  START,  and  END. 
The  location  in  BDATA  of  the  first  point  on  the  segment  is  received  as 
the  argument  LSEG.  The  points  on  the  section  are  classified  also  as  in 
READF. 
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86.  SUBROUTINE  BLKCON  (Checks  for  possible  loss  of  continuity) 

This  subroutine  checks  each  block  for  image  points  having  adjacent 
image  points  that  have  non-field  points  in  another  block  as  object 
points . 

The  routine  uses  the  linkage  arrays  in  COMMON/ILINK/  as  does  IMCPTS 
(Section  II-F5).  All  of  the  image  points  are  checked  for  adjacent  image 
points.  If  the  object  block  for  such  an  adjacent  image'  point  is  differ¬ 
ent  from  the  block  being  checked,  the  TYPE  array  for  that  object  block 
is  read  into  NTYPE  by  calling  SSD3  or  CCD2  as  appropriate.  If  the  ob¬ 
ject  point  is  not  a  field  point,  a  warning  is  printed. 

87.  SUBROUTINE  MOVEIN  (Contracts  cut  section) 

This  routine  contracts  a  cut  section  if  appropriate.  The  curvi- 

M 

linear  coordinate  that  is  constant  on  the  section  is  identified  as  ^  , 
and  the  two  coordinates  that  vary  on  the  surface  are  5''’^  and  where 

N,N1,N2  are  cyclic.  If  no  "FIELD"  point,  or  an  "IMAGE"  point  not  adja¬ 
cent  to  an  "OUT"  point  outside  the  block,  is  found  or  an  edge  of  the 
section,  that  edge  is  moved  in  one  point. 

88.  SUBROUTINE  SURSYS  (surface  elliptic  grid  generation  system) 

This  subroutine  operates  as  does  VOLSYS,  but  with  the  surface  el¬ 
liptic  grid  generation  system  discussed  in  Appendix  K,  in  place  of  the 
system  given  in  VOLSYS,  This  surface  system  is  given  by  Eq.  (K-31)  and 
the  concomitant  equations  in  Appendix  K.  Since  the  grid  is  being  gener¬ 
ated  on  a  surface,  the  third  curvilinear  coordinate,  03,  is  set  to  1, 
and  the  sweep  is  over  01  and  02. 
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The  routine  has  the  two  surface  parametric  coordinates,  u  and  v,  in 
the  array  R,  with  the  first  subscript  1  and  2,  Instead  of  the  Cartesian 
coordinates.  The  derivatives  in  DR  are  thus  derivatives  of  the  para¬ 
metric  coordinates: 

u  =  DR(l,i,0) 

C 

V  =  DR(2,1,0) 

C 

u  -  2u  =  DR(1 ,i,i) 

^  C 

V  -  2v  -  DR(2,i,i) 

u  -  DRd.i.j) 

V  =  DR(2,i,j) 

where  i  and  j  assume  either  of  the  values  1  and  2,  corresponding  to  the 
curvilinear  coordinates,  and  (Appendix  K),  that  vary  on  the  sur¬ 
face. 

The  derivatives  of  the  Cartesian  coordinates  with  respect  to  the 
parametric  coordinates  are  interpolated  from  the  spline  by  calling 
SPLINT,  these  being  returned  in  the  array  VR: 

Cu  =  =  VR(__,1,0) 

r^  =  :  VR(_,2,0) 
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r 

-  vv 


VR(  ,2,2) 


The  form  of  the  equations  is  the  same  as  that  for  the  2D  form  of 
those  used  In  VOLSYS  with  the  following  identifications: 

GG(1 ,1 )  -  AA  -  a 
GG(2,2)  -  CC  -  c 
GG(1 ,2)  =  -BB  -  -b 

and  with  the  addition  of  a  non-zero  right-hand  side: 

SUM3  :  or  J^A„v 

V  2  u  2 

The  code  notation  for  the  remaining  quantities  in  the  system  is  as 
follows  (cf.  Eq.  (K-28)-(K-3'«)): 


a 

: 

AA 

b 

: 

BB 

c 

: 

CC 

SJNU 

V 

g 

GAA 

aa 

®66 

GBB 

; 

GAB 

J 

JBN 

V 

: 

BELd  ),BEL(2) 

: 

GAAC,GAAV 
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GBBU.GBBV 


••  GABU.GABV 


(J  )  ,(.I  )  ;  JBNU,JBNV 

V  u  V  u 


89.  SUBROUTINE  SPLINT  (Interpolation  on  surface  spline) 


This  subroutine  receives  values  of  the  two  surface  parametric  coor¬ 
dinates  in  the  argument  array  R  (with  the  first  subscript  1  and  2)  at 
the  grid  point  with  argument  indices  11,12,  and  interpolates  for  the 


derivatives,  c^. 

etc. 

,  returning  then  in  the 

array 

VR 

through 

COMMON/ SURFACE/ . 

The 

spline  is  received  in  the 

array 

RE 

through 

COMMON/ SURFACE/ . 

With  reference  to  the  following  figure, 


since  the  spline  is  with  reference  to  the  indices  of  the  surface  as  read 
in,  l.e.,  the  point  counters  in  each  direction  (ranging  from  1  to  the 
surface  dimensions),  the  particular  section  of  the  spline  on  which  the 
point  is  located  is  determined  by  C1-IFIX(R( 1 ,...)) ,  C2=IFIX(R(2 ,...)) . 
The  spline  coordinates  (u  and  v,  range  0-1)  on  this  section  are  then 
determined  by  subtracting  these  integer  values  from  the  values  received 
in  R. 
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The  spline  is  set  up  as  discussed  in  Appendix  F,  so  that,  from  Eq. 


(F-2), 

r(u,v)  -  F(u)Qf'^(v) 

The  derivatives  then  are 

r^  =  r'aF"^  :  VR( ,1  ,0) 

r^  =  FaF"^'  :  VR(_,2,0) 

Tyu  =  :  VR(_,1,1) 

r^^  -  FQf’^"  :  VR(_,2,2) 

Tyv  =  f'qf'^'  :  VR(_,1,2) 

Since  the  generation  system  is  homogeneous  in  u  and  v,  it  is  not 
necessary  to  reference  these  derivatives  to  the  full  range  of  the  para¬ 
metric  coordinates;  rather  the  0-1  range  of  u  and  v  on  the  spline  sec¬ 
tion  is  sufficient. 

The  following  notation  is  used  in  the  code: 


u.v  ; 

XI  ,X2 

Q  : 

Q 

F(u),f'''(v): 

Gl  ,G2 

•  T* 

F  ,F^  ; 

H  Tfl 

G1P,G2P 

F  ,F‘  : 

G1PP,G2PP 

qfT' 

QGP2 

T»t 

QF*  : 

QGPP2 
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90.  SUBROUTINE  SURCOR  (Cartesian  coordinates  from  spline) 


This  subroutine  receives  the  two  surface  parametric  coordinates  of 
all  grid  points  on  a  surface  grid  in  the  argument  array  R  (with  first 
subscript  1  and  2)  and  returns  the  three  Cartesian  coordinates  of  the 
grid  points  in  the  same  array  (but  with  the  first  subscript  1,2,3). 

For  each  ooint  on  the  grid  the  routine  calls  SPLINT  to  interpolate 
on  the  spline  for  the  Cartesian  coordinates  of  the  point,  placing  these 
values  in  the  array  RAD.  After  the  entire  grid  has  been  swept,  all  the 
values  in  RAD  are  transferred  to  R  for  return. 

91.  SUBROUTINES  MERP2,  MERP3 

These  subroutines  are  Identical  to  TERP2  and  TERP3.  except  that  the 
result  has  the  opposite  sign. 

92.  SUBROUTINE  DERP3 

This  subroutine  is  identical  to  TERP3,  except  that  the  result  has 
the  opposite  sign  and  is  multiplied  by  2.0. 


280 


APPENDIX  A 


TRANSFINITE  INTERPOLATION 

In  two  dimensions,  the  Lagrange  interpolation  functions  written 
individually  in  each  curvilinear  direction  are 

!:(C.n)  -  <()^(|) 

and 

2 

r(C.n)  ”  I 

_  ,  m  J  ~  m 

DI"! 

where  the  "blending  functions",  41  an  ,  satisfy  the  conditions 

n  *  iD 

<(•^(0)  -  1,  ^^(0)  -  0 

4^(1)  -  0,  (J^d)  -  1 

(0)  -  1 ,  “  0 

1<l(1  )  -  0,  -  1 

(In  this  appendix,  C.n.  and  c  are  defined  on  the  ranges  O-I,  0-J,  and 
0-K,  respectively,)  This  interpolation  is  called  "transflnite"  since  it 
matches  the  entire  boundary  defined  by  5-0  and  in  the  first  equa¬ 
tion,  or  by  n-O  and  n“J  in  the  second,  i.e.,  at  a  nondenumerable  number 
of  points  (cf.  Ref.  13  and  1A). 

The  tensor  product  form 
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2 

n-1 

matches  the  four  corners: 


It  does  not,  however,  match  all  the  boundary. 
The  sum  of  Eq.  (1a)  and  (1b), 

SU.n)  -  I  r(c„,r))  >  I  r(t,n„) 

n*«1  m»*1 


(3) 


when  evaluated  on  the  5-0  boundary  gives 

2 

S(0,n)  »  r(0,n)  +  J 
m-1 

This  does  not  match  the  5-0  boundary  because  of  the  second  term  on  the 
right,  which  is  an  interpolation  between  the  ends  of  this  boundary; 
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Similar  effects  occur  on  all  the  other  boundaries,  and  the  discrepancy 
on  the  boundary  is 


2 

1 

m-1 


m  d 


The  discrepancies  on  both  of  these  boundaries  can  be  removed  by  sub¬ 
tracting  from  S(5,ri)  a  function  formed  by  interpolating  the  discrepan¬ 
cies  between  the  two  boundaries: 


R(C,n) 


m  J  -  n  m 


(‘4) 


But  this  is  simply  the  tensor  product  form  given  by  Eq.  (2),  which 
matches  the  four  corners. 

The  function  S-R  then  matches  all  four  sides  of  the  boundary,  so 
that  we  have  the  transfinite  Interpolation  from. 


rjt.n)  -  z  ♦„(§)  r(5„,n)  •  I  C't'V 

n-1  m-1 

-  J.  i  K  '!> 


(5) 


which  matches  the  entire  boundary.  By  contrast,  the  tensor  product 
form,  Eq.  (2),  matches  only  the  four  corners  on  the  boundary. 
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Now  let  P^(r)  be  a  one-dimensional  interpolation  function 
("projector")  in  the  C'dir’ection  which  matches  r  on  the  two  lines 
(n-1 ,2): 


(Note  that  the  subscript  5  here  does  not  denote  differentiation.) 

Similarly,  let  P  (r)  match  r  on  the  two  lines  n-h  (m  -  1,2). 
n  -  -  m 

Projectors  are  discussed  in  more  detail  in  Ref.  (13  and  14).  Some  dis¬ 
cussion  is  also  given  in  Ref.  (1).  The  product  projector,  P  [P  (r)], 

then  matches  the  function  P  (r),  instead  of  r,  on  the  two  lines 

n  -  -  n 


Then,  since  P  (r)  matches  r  on  the  two  lines  n-n  ,  it  follows  that  the 
n  -  -  m 

product  projector  will  match  r  at  the  four  corner  points  = 
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Clearly  the  same  conclusion  is  reached  for  the  product  projector 
P  [P  (r)],  so  that  the  projectors  P_  and  P  commute. 

n  C  *•  4  h 

The  sum  projector,  P,.(r)  +  P  (r),  matches  r  +  P  (r)  on  the  two 

4  ~  h  ~  ~  n  ~ 

lines  4-4  ,  and  matches  r+P,.(r)  on  the  two  lines  n»n„.  It  should  be 
n  ~  4  ~  tn 

clear  then  that  the  projector,  P^{r)  +  ”  P^tP^(r)],  will  match  r 

on  the  two  lines  4-4  ,  since  P,.[P  (r)]  matches  P  (r)  on  these  lines. 

n  4  n  ~  h  ~ 

Similarly,  the  projector  P  (r)+P  (r)*P  [P  (r)]  matches  r  on  the  two 

4  h  n  4 

lines  n-n  .  Therefore,  since  P,.P  -P  P^,  the  Boolean  sum  projector, 
m  4  n  n  4 


P^0  P  -  P^  *  P 
4^  n  4  n 


P  p 
4  n 


will  match  r  on  the  entirety  of  the  four  intersecting  lines,  4-4^  and 

n-n  ,  which  is,  of  course,  the  entire  boundary, 
m 

In  summary,  the  individual  projectors,  P^  and  P^,  interpolate  uni- 
directlonally  between  two  opposing  boundaries: 


The  product  projector,  P^P^^f  interpolates  in  two  directions  from  the 
four  corners: 
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y 


The  Boolean  sum  projector,  P^@P^,  interpolates  from  the  entire  bound- 


rz 

\ 

\ 

\ 

lJs 

In  three  dimensions,  the  individual  projectors,  P  ,  P  ,  and  P  , 

^  ^  c 

interpolate  unidirectionally  between  two  opposing  faces  of  the  six-sided 
region: 


(matching  r  on  each  of  the  two  faces  in  each  case).  The  double  product 


projector,  P^P^t  interpolates  in  two  directions  from  the  four  edges 
along  which  5  and  n  are  constant; 
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(matching  r  on  each  of  these  edges). 


The  Boolean  sum  projector 


'“s®%  ■  ’’t  * 


-  p^p 

C  n 


(6) 


interpolates  in  two  directions  from  the  four  faces  on  which  either  E,  or 
n  is  constant: 


(matching  r  on  all  of  these  faces). 
The  Boolean  sum  projector 


Vn®’'; 


p^p  + 

C  n 


P 

5 


P^P  P 

C  n  c 


(7) 
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interpolates  in  three  directions,  matching  r  on  the  four  edges  on  which 
C  and  n  are  constant  and  also  on  the  two  faces  on  which  i;  is  constant: 


The  Boolean  sum  projector 


P_P  ©P  P  ©P  -  P^P  ♦  p  p  +  p  p  ^  2P^P  P  (8) 

interpolates  in  three  directions,  with  r  matched  only  on  all  12  edges; 


The  triple  product  projector,  P^P^P^,  interpolates  r  from  the 


eight  corners; 


I 

I 
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Finally  the  Boolean  sum  projector 

P  (?)  P  (?)  P  -  P,  +  P  +  P  -  P^P  -  P  P  *-  P  P,  +  P^P  P,  (9) 

C  C  n  c  nc  Cnc 

matches  r  on  the  entire  boundary. 

Much  cancellation  occurs  in  the  algebraic  manipulation  of  the  pro¬ 
jectors  involved  in  developing  the  above  relations,  since 
etc.  Thus,  for  example. 


Pr  ©  PrP  *  Pr  ^ 

5  ^  5  n  5  C  n 


P^P^P 
C  C  n 


p,  +  P,P 

5  C  n 


P^P 
C  h 


P 


This  is  to  be  expected  since  interpolation  by  P^  matches  the  function 
on  all  of  the  two  sides  on  which  5  is  constant,  while  matches  the 
function  on  the  four  edges  on  which  C  and  n  are  constant.  But  these 
edges  are  contained  on  the  two  sides  cited,  so  that  nothing  is  changed 
by  adding  P^P^  to  P^  in  the  Boolean  sense. 

The  importance  of  the  projectors  is  that  the  structure  given  above 
allows  multi-directional  Interpolation  to  be  constructed  systematically 
from  unidirectional  forms.  With  one^dimensional  interpolation  of  the 
form  of  Eq.  (1)  we  have 
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(10a) 


2 

P  (D  -  I  r(C.ri„) 

n  ,  m  J  -  m 

m«l 


so  that 


(10b) 


p^p,(!:) 


P^[P  (r)] 
4  h  - 


2  2 


\  ♦„<!>  t  J  ♦«<?> 

n-1  m»1 


2  2 


■  J  J,  ♦n<f>  ♦m'j'  C<5„.n„) 
n“l  in*l 


(11) 


which  is  just  the  tensor  product  form  given  previously  in  Eq.  (2),  so 
that  the  two-directional  transfinite  interpolation  corresponding  to  the 
projector  P^©P^  is  just  that  given  by  Eq.  (5). 

The  triple  product  corresponding  to  Eq.  (10)  is  simply 


P^P  P  (r) 
5  1  C  ~ 


2 


I 

n-1 


2 

I 


m»1 


2 

I 


«,-1 


(12) 
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Although  Hermite  interpolation  can  be  defined  in  terms  of  addi¬ 
tional  points,  and  thus  be  put  In  this  same  form  also,  the  use  of  pro¬ 
jectors  allows  a  more  direct  statement  as  follows.  For  the  projectors 
we  have, 

n-1 

and 

2 

P  (r)  -  I  'll  (-7)  r(C,n  )  + 
n  -  inJ  -  m 

fn*  I 

where  the  blending  functions  satisfy 


2 

I 

n»1 


(13a) 


,  m  J  -Ti  m 


(13b) 


m-1 


0,(0) 

-  1. 

02^0) 

0,(1) 

-  0, 

02(1) 

0,'(O) 

-  0,'(1)  ^ 

“  02(0) 

0,(0) 

-  0,(1)  ■ 

“  02(0) 

0,'(O) 

“  1 , 

0^(0) 

0,’(1  ) 

-  0, 

02(1) 

-  0 

-  0 


with  analogous  conditions  for  )|/  and  >?.  Now 


P-P  (r)  -  P.[P  (r)] 
?  n  -  ^  n  - 


n  I  m  J  -Cti  n  m 

Then  the  two-directional  transfinlte  interpolation  can  be  constructed 
by  substitution  of  Eq.  (13)  and  (1^1)  into  the  projector  P^©P^.  Here 
the  tensor  product  form  P^P^  Interpolates  from  the  values  of  the  func¬ 
tion,  its  two  first  derivatives,  and  the  cross-derivative  at  the  four 
corners  of  the  boundary.  The  transfinlte  interpolation  form,  P^©  P^, 
however.  Interpolates  from  the  value  of  the  function  and  its  normal 
derivative  on  the  entire  boundary. 

The  above  evaluations  of  the  product  projectors  serve  to  lllus- 
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trate  the  evaluation  of  such  products  for  general  projectors,  i.e., 
that  the  effect  of  the  product  projectors  Is  simply  an  interpolation  in 
one-direction  of  an  interpolant  in  another  direction.  This  allows  the 
multi-directional  transfinite  Interpolation  to  be  constructed  from  the 
Boolean  sums  of  the  projectors  given  above  using  any  appropriate 
unidirectional  interpolation  forms  as  the  basis  projectors.  It  should 
also  be  noted  that  the  unidirectional  interpolation  does  not  have  to  be 
of  the  same  form  in  all  the  directions.  Thus  Lagrange  interpolation 
could  be  used  in  one  direction  while  Hermite  is  used  in  the  other 
direction  of  a  two-dimensional  construction.  Also,  the  blending  func¬ 
tions  do  not  have  to  be  polynomials.  This  freedom  to  combine  different 
types  of  univariate  interpolation  gives  considerable  flexibility  to 
transfinite  interpolation  based  on  the  projector  structure. 

Coding 

To  generalize  the  notation  for  coding,  let  the  blending  functions 

<1^  and  in  Eq.  (13a)  be  given  by  and  respectively,  and  let 

(2)  (2) 

and  of  Eq.  (13b)  be  given  by  and  B^^  ,  etc.  The  four  blendi- 

ing  functions  in  the  direction  1  can  then  be  represented  as  B^^^  where 

mn 

the  first  subscript  indicates  the  function  associated  with  r  (m-0)  or 
r  (m-1),  while  the  second  subscript  indicates  the  end  of  the  interpo- 
lation  line  (n-0  for  the  first  end  and  n=1  for  the  other).  All  12 
blending  functions  are  then  represented  by 

b">(5)  1  -  1.2.3 

m  -  0,1 

n  -  0,1 
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Also  let  r  and  its  derivatives  be  represented  as  R^5^(g)  where  the  su¬ 
perscript  is  a  3“vector  indicating  the  derivative,  e.g., 

D  •  0,0,0  +  r 

D  «  1 ,0,0  r  , 

5 

D  -  0,1 ,0  -►  r 

~r 

D  =  1,1,0  -  r 

5  r 

D  “  1 , 1  , 1  -►  r  - ,  etc . 

and  the  argument  is  a  3“vector  indicating  the  point  of  evaluation, 
i.e.,  I  with  one  or  more  entries  replaced  by  an  end  value. 

The  one-dimensional  projector  in  the  1-direction  for  Hermite  in¬ 
terpolation  can  then  be  written 


-  I  I  b^>(5)  5  (c„)  (15) 

ra-0  n-0 

where  the  first  summation  is  over  the  function  forms  and  the  second  is 
over  the  ends.  Here  Dq  -  0,0,0  ■*  r,  while  the  i-entry  of  is  1  and 
the  other  two  entries  are  zero,  indicating  the  derivative  r  ..  Also, 
and  ,  have  their  l-entries  equal  to  START(i)  and  EWD(i),  respec*- 
tively,  while  the  other  two  entries  are  equal  to  the  corresponding  en¬ 
tries  of 


i 


The  double  product  projector  then  is 
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(16) 


pipj 


1 


I 

n-0 


1 


I 

p-0 


R^%^C  ) 

mn  ^  pq  *  ~  -nq 


where  -  0,0,0  r.  Now  the  1-entry  of  is  1,  with  the  others 
zero,  indicating  r  while  the  J;-entry  of  is  1,  with  the  others 


zero,  indicating  r  ..  Also  both  the  i  and  J  entries  of  D, ,  are  1,  and 
the  other  entry  is  zero,  indicating  the  cross  derivative,  r  .  The 
i-entrles  of  and  are  equal  to  STARK i)  and  END(i),  respectlve- 


-1q 


ly,  while  the  J-entries  of  and  are  equal  to  START(J)  and 


Similarly,  the  triple  product  projector  is 


pipjpk 


I  I  I  I 


I  B, 


m-0  n«0  p-0  q-0  r-0  s-O 


(i)  gCj)  g(l<)  p(2[„pj,)(c  ) 

-  -  -nqs 


mn 


pq 


rs 


(17) 


where  the  i-entry  of  D,  ,  the  J-entry  of  D  ,  ,  and  the  k-entry  of  D  , 

-ipr  -ml  r  ~mp1 

are  all  1,  while  the  others  are  zero,  indicating  the  appropriate  first, 

cross,  or  triple  derivative.  The  i'-entries  of  C„  and  C,  ,  the  J«- 

-Oqs  -Iqs  '' 

entries  of  C  _  and  C  ,  ,  and  the  k-entries  of  C  _  and  C  .  are  equal 
-nOs  -nls  -nqO  ~nq1 

to  the  corresponding  entries  of  START  and  END: 
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Qiti 


For  Lagrange  interpolation  the  limit  of  the  first  summation  in  the 
projector  in  Eq.  (15)  is  0,  leaving  m  with  a  value  only  of  0. 
Incomplete  Hermite  interpolation,  involving  the  specification  of  the 
derivative  at  only  one  end  can  be  represented  by  making  the  limits  on 
the  second  summation  in  the  projector  dependent  on  m.  All  of  these 
forms  can  be  incorporated  in  the  notation 
.(2) 


-  I  Im  ^  ^  R  (C  ) 

m*0  n-N 

m 


(18) 


where  M-0  for  Lagrange  and  M-1  otherwise,  and  where  ^  -  0  and 
(2) 

Nq  -1.  With  the  derivative  specified  at  only  the  first  end,  the  oth¬ 
er  limits  are  -  0,  while  with  the  specification  at  only  the 
second  end  they  are  -  1.  For  complete  Hermite,  the  limits 
are  -  0  and  «  1 ,  of  course. 

In  multiple  dimensions,  the  product  projectors  in  Eq.  (16)  and  Eq. 
(17)  may  involve  different  forms  of  Interpolation  in  the  different 
directions,  with  these  products  written  as 


pipj 


n(2) 

M  m 


,(2) 


rn  ^  4  B  R  (c  ) 

.-0  pio  qtg'"  ™ 

m  p 


I  I 


P  '■p 

I  I 


(19) 


and 
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(D  ) 

1  j  k  "  »  f  f  ?  ?  B  <‘'b  <J>b  <'<>b  V'(e  ) 

P  pjp  -  I  I,,l  j  J  £  I  "m  P<!  PS  -  -nos 

"•On-N^’'  P-0  ^.g(1)  P-0  s-s;  '  ,20) 


with  the  limits  set  individually  for  the  form  used  in  each  direction. 


The  blending  functions  for  all  three  forms  are  as  follows: 


LAGRANGE  (Points  only  specified  at  each  end) 


B 


3(1) 

00 

(1) 

01 


1-C 

.1 


1 


HERMITE1  (Points  at  both  ends,  derivative  at  first  end) 

B<‘>  - 
®01  ^ 


HERMITE2  (Points  at  both  ends,  derivative  at  second  end) 


^00  - 


HERMITE  (Points  and  derivatives  at  both  ends) 


®00^  - 
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B 

B 

B 


(i) 

01 

(i) 

10 

(i) 

11 


(1^5')V 


i  1 


2 


The  argument  of  these  blending  functions  is  defined  to  vary 
from  0  to  1  from  the  first  to  the  second  end.  Therefore,  with  LINEAR 
blending  functions,  this  is  given  by 


i  ^  C(l)r-START(i) 

^  *  END(1)-START(1)  (21 ) 

where  the  C(i)  on  the  right  is  the  curvilinear  coordinate  varying  by 
unit  Increments  from  START(i)  to  END(l)  from  the  first  to  the  second 
end.  With  ARC  blending  functions,  is  the  relative  arc  length  from 
the  first  end. 

Specification  of  the  spacing,  at  an  end  amounts  to  specify¬ 

ing; 

-2-  ^  4<‘>r 

dC(i)  ‘  AC(i)  “  ^  - 

since  C(i)  varies  by  unit  Increrff^nts.  The  r  for  the  interpolation  is 
then  given  by 

dC(i)  dC(i)  (i) 

—  -  "  "  -  A  r 

Y*  »  m  m 

dc^  dC(i)  d^^  dt^ 

For  LINEAR  blending  functions, 

-  END(i)  -  STAfiT(l) 
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while  for  ARC  blending  functions,  with  A  for  relative  arc  length, 


dC(l) 


dC(i)  dA 


since  relative  arc  length  also  varies  on  the  range  0-1  and  hence  can  be 
Interpreted  directly  as  Then  for  LINEAR  blending  functions, 

r  -  [END(i)  STARK i)]A  (22) 

~V 

while  for  ARC  blending  functions 


r 


i 


(23) 


In  the  code,  the  following  notation  is  used: 
m,p,r  NF1,  NF2,  NF3  or  NF(1),  NF(2),  NF(3) 


n,q,s  -  NE1,  NE2,  NE3  or  NE(1),  NE(2),  NE(3) 


M,P,R  LF(form) 

-  LE(1,  m,  form)  etc. 

tn  p  r 

-  BLEN(i.  m,  n,  C(1 ) ,C(2)  ,C(3)  ) 

(D  ) 

R  (Cj^qg)  ->•  RB(3,  m,p,r,  NDX(CC(n,  1 )  ,CC(q, 2 )  ,CC(s. 3 )  ) 

where  CC(0,  i)  is  START(i),  or  C(i)  and  CC(1,i)  is 
either  END(i)  or  C(i) 

FACIN(i,  C(1  ),C(2),C(3)  ) 
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APPENDIX  B 


ELLIPTIC  GENERATION  SYSTEM 

Laplace  system 

The  most  simple  elliptic  partial  differential  system  is  the 
Laplace  system  (cf.  Ref.  1): 

-  0  (1  -  1,2,3)  (1) 

This  generation  system  guarantees  a  one'^to*-one  mapping  on  general 
closed  boundaries.  These  equations  can,  in  fact,  be  obtained  from  the 
Euler  equations  for  the  minimization  of  the  integral 

3 

I  -  III  I  125^1^  dV 

i-1  (2) 


Since  the  coordinate  lines  are  located  at  equal  increments  of  the  curr 

vilinear  coordinate,  the  quantity  jV^^I  can  be  considered  a  measure  of 

the  grid  point  density  along  the  coordinate  line  on  which  varies, 

l.e. ,  must  change  rapidly  in  physical  space  where  grid  points  are 

clustered.  Minimization  of  this  integral  thus  leads  to  the  smoothest 

coordinate  line  distribution  over  the  field. 

With  this  generating  system  the  coordinate  lines  will  tend  to  be 

equally  spaced  in  the  absence  of  boundary  curvature  because  of  the 

strong  smoothing  effect  of  the  Laplaclan,  but  will  become  more  closely 

spaced  over  convex  boundaries,  and  less  so  over  concave  boundaries,  as 

illustrated  below.  (In  this  and  other  illustrations  and  applications 

1  2 

in  two  dimensions,  d  and  5  will  be  denoted  5  and  n.  respectively,  ^ 
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and  and  y  will  be  used  for  ,  and  x^.) 


In  the  left  figure  we  have  >  0  because  of  the  convex  (to  the  in*- 
terlor)  curvature  of  the  lines  of  constant  n  (n'lir^es).  Therefore  it 
follows  that  n  <0,  and  hence  the  spacing  between  the  n'lines  must 

yy 

increase  with  y.  The  n“lines  thus  will  tend  to  be  more  closely  spaced 

over  such  a  convex  boundary  segment.  For  concave  segments,  illustrated 

in  the  right  figure,  we  have  n  <  0,  so  that  must  be  positive,  and 

XX  y  y 

hence  the  spacing  of  the  n'lines  must  decrease  outward  from  this  con¬ 
cave  boundary. 


Poisson  system 


Control  of  the  coordinate  line  distribution  in  the  field  can  be 
exercised  by  generalizing  the  elliptic  generating  system  to  Poisson 
equations : 

.pi  (i  -  1,2,3)  (3) 

in  which  the  "control  functions"  can  be  fashioned  to  control  the 

spacing  and  orientation  of  the  coordinate  lines. 

2  1 

Considering  the  equation  V  n  “  Q  and  the  figures  above  (P  «  P  and 

2 

P  «  Q  in  the  illustrations  here),  since  a  negative  value  of  the  con¬ 
trol  function  would  tend  to  make  Hyy  more  negative,  it  follows  that  ne- 
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gative  values  of  Q  will  tend  to  cause  the  coordinate  line  spacing  in 
the  cases  shown  above  to  increase  more  rapidly  outward  from  the  bound¬ 
ary.  Generalizing,  negative  values  of  the  control  function  Q  will 

cause  the  n~lines  to  tend  to  move  in  the  direction  of  decreasing  n. 

2 

while  negative  values  of  P  in  V  ^  •  P  will  cause  C“llnes  to  tend  to 
move  in  the  direction  of  decreasing  These  effects  are  illustrated 
below  for  an  n>"line  boundary: 


i  .  6 

Q<  0  P<  0 

With  the  boundary  values  fixed,  the  ^-lines  here  cannot  change  the  in¬ 
tersection  with  the  boundary.  The  effect  of  the  control  function  P  at 
the  boundary  in  this  case  is  to  change  the  angle  of  intersection,  caus¬ 
ing  the  5-lines  to  lean  in  the  direction  of  decreasing  5. 

These  effects  are  illustrated  in  the  following  figures: 


Here  the  5-llnes  are  radial  and  the  n^lines  are  circumferential.  In 
the  left  Illustration  the  control  function  Q  is  locally  non*-zero  near  a 
portion  of  the  inner  boundary  as  indicated,  so  the  n'lines  move  closer 
to  that  portion  of  the  boundary  while  in  the  right  figure,  P  is  locally 
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non-zero,  resulting  in  a  change  In  Intersection  angle  of  the  ^‘'llnes 
with  that  portion  of  the  boundary.  If  the  Intersection  angle,  Instead 
of  the  point  location,  on  the  boundary  is  specified,  so  that  the  points 
are  free  to  move  along  the  boundary,  then  the  5-lines  would  move  toward 
lines  with  lower  values  of  5: 


In  general,  a  negative  value  of  the  Laplacian  of  one  of  the  curvir 
linear  coordinates  causes  the  lines  on  which  that  coordinate  is  con¬ 
stant  to  move  in  the  direction  in  which  that  coordinate  decreases. 
Positive  values  of  the  Laplacian  naturally  result  in  the  opposite  ef¬ 
fect. 

Effect  of  boundary  point  distribution 

Because  of  the  strong  smoothing  tendencies  that  are  inherent  in 
the  Laplacian  operator,  in  the  absence  of  the  control  functions,  i.e., 
with  -  0,  the  coordinate  lines  will  tend  to  be  generally  equally 
spaced  away  from  the  boundaries  regardless  of  the  boundary  point  dis¬ 
tribution.  For  example,  the  simple  case  of  a  coordinate  system  com^^ 
prised  of  horizontal  and  vertical  lines  in  a  rectangular  physical  re¬ 
gion,  (cf.  the  right  figure  below)  cannot  be  obtained  as  a  solution  of 
Eq.  (3)  with  P-Q-0  unless  the  boundary  points  are  equally  spaced. 
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With  £  -  n  =0,  Eq.  (3)  reduces  to 

JJ 


5 


XX 


»  P, 


yy 


•  Q 


and  thus  P  and  Q  cannot  vanish  if  the  point  distribution  Is  not  uniform 
on  the  horizontal  and  vertical  boundaries,  respectively.  With  P-Q^-O 
the  lines  tend  to  be  equally-spaced  away  from  the  boundary.  These  ef¬ 
fects  are  illustrated  further  in  the  figures  below.  Here  the  control 
functions  are  zero  in  the  left  figure. 


Although  the  spacing  is  not  uniform  on  the  semi-circular  outer  boundary 
in  this  figure,  the  angular  spacing  is  essentially  uniform  away  from 
the  boundary.  By  contrast,  nonzero  control  functions  in  the  right  fig¬ 
ure,  evaluated  from  the  boundary  point  distribution,  cause  the  field 
spacing  to  follow  that  on  the  boundary.  Thus,  if  the  coordinate  lines 
in  the  interior  of  the  region  are  to  have  the  same  general  spacing  as 
the  point  distributions  on  the  boundaries  which  these  lines  connect,  it 
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Is  necessary  to  evaluate  the  control  functions  to  be  compatible  with 
the  boundary  point  distribution.  This  evaluation  of  the  control  func^ 
tlons  from  the  boundary  point  distribution  is  discussed  in  Appendix  C. 

General  Pois3on*-type  systems 

If  a  curvilinear  coordinate  system,  (i  »  1,2,3),  which  satis¬ 
fies  the  Laplace  system 


-  0 


(i  -  1.2,3) 


is  transformed  to  another  coordinate  system,  C  (i  -  1,2,3),  then  the 
new  curvilinear  coordinates,  satisfy  the  inhomogeneous  elliptic 
system  (cf.  Ref.  [1]) 


2  i  i 
7  {;  -  P 


(i  -  1,2,3) 


(4) 


where 


3  3 

■  I  Z  sr”' 

j-1  k-1 


Jk 


(5) 


where  the  are  the  elements  of  the  contravariant  metric  tensor,  and 

with  the  defined  by  the  transformation  from  to  5^: 

J  ^ 


t 


I 
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(6) 


(It  may  be  noted  that  if  the  subsequent  transformation  is  one¬ 
dimensional,  i.e.,  if  •  6j  then  only  the  three  func¬ 
tions  with  1  »  1,2,3,  are  nonzero.) 

These  results  show  that  a  grid  with  lines  concentrated  by  applying 
a  subsequent  transformation  (often  called  a  "stretching"  transforma¬ 
tion)  to  a  grid  generated  as  the  solution  of  the  Laplace  system  could 
have  been  generated  directly  as  the  solution  of  the  Poisson  system  (i1) 
with  appropriate  "control  functions",  P^.  ,  derived  from  the  subsequent 
concentrating  transformation  according  to  Eq.  (6).  Therefore,  it  is 
appropriate  to  adopt  this  Poisson  system  (4)  as  the  generation  system, 
but  with  the  control  functions  specified  directly  rather  than  through  a 
subsequent  transformation. 

Thus  an  appropriate  generation  system  can  be  defined  by  Eqs.  (i)) 
and  (5); 


3  3 

I  I  ^ 

j*=1  k-1 


ik  pi 
jk 


(1  -  1,2,3) 


(7) 


with  the  control  functions,  P^i^,  considered  to  be  specified.  The  basis 

Jk 

of  the  generation  system  (7)  is  that  it  produces  a  coordinate  system 
that  corresponds  to  the  subsequent  application  of  a  stretching  trans” 
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formation  to  a  coordinate  system  generated  for  maximum  smoothness. 
From  Eq.  (6),  the  three  control  functions,  (i  «  1,2,3),  correspond 
to  one‘-dimensional  stretching  in  each  coordinate  direction  and  thus  are 
the  most  important  of  the  control  functions.  In  applications,  in  fact, 
the  other  control  functions  have  been  taken  to  be  zero,  i.e., 
so  that  the  generation  system  becomes 

Jk  J  k  1 

(i  .  1,2,3)  (8) 

It  may  be  noted  that  Eq.  (7)  can  be  written  as 
3  3 

»  I  I  pL  (V5^  •  V^*^)  -  0  (9) 

j-1  k-1 

Actual  computation  is  to  be  done  in  the  rectangular  transformed 
field  where  the  curvilinear  coordinates,  ai'e  the  independent  vari¬ 
ables,  with  the  Cartesian  coordinates,  x^,  as  dependent  variables.  The 
transformation  of  Eq.  (9)  is 


3  3 

I  I 


i  j"  ^  ^ij  ^  ° 

i-1  j-1  k-i  c 


(10) 


This  then  is  the  quasi-linear  elliptic  partial  differential  equation 
which  can  be  solved  to  generate  the  coordinate  system.  (In  computa"- 
tion,  the  Jacobian  squared,  g,  can  be  omitted  from  the  evaluation  of 
the  metric  coefficients,  g^'^,  in  this  equation  since  it  would  cancel 
anyway. ) 
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Generation  System 


The  elliptic  grid  generation  system  used  in  this  code  is 
3 


3  3 

I  I  g®" 


r  ^  I  g""  P  r  -0 
,  ■  n-_n 

m=1  n-1  C  5  n»1  £ 


(11) 


where  the  are  the  elements  of  the  contravariant  metric  tensor: 


mn 

g 


These  elements  are  more  conveniently  expressed  in  terms  of  the  elements 

of  the  CO variant  metric  tensor,  g  : 

mn 

g  -  r  •  r 
mn  -^m  -^n 

which  can  be  calculated  directly.  Thus 
mn  ,  \  - 

(m,i,J)  cyclic,  (n,k,il)  cyclic 


where  g,  the  square  of  the  Jacobian,  is  given  by 


g  -  det 


X  r  -) 

"k 


In  these  relations,  r  is  the  Cartesian  position  vector  of  a  grid 

point  (c  “  i*  iy  *  i5z)i  3nd  the  (1*1 12, 3)  are  the  three  curvilin^- 

ear  coordinates.  The  P  are  the  three  'control  functions'  which  serve 

n 

to  control  the  spacing  and  orientation  of  the  grid  lines  in  the  field. 
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APPENDIX  C 


CONTROL  FUNCTIONS 


Negative  values  of  the  control  function  P^  cause  grid  lines  on 
which  5^  is  constant  to  tend  to  move  in  the  direction  of  decreasing  5"^, 
and  this  feature  can  be  used  to  concentrate  grid  lines  near  other  grid 
lines  and/or  points  or  in  certain  regions  of  physical  space.  However,  a 
more  automatic  procedure  is  to  determine  the  control  functions  so  as  to 
reflect  the  boundary  point  spacing  into  the  field.  The  details  of  how 
this  is  done  in  the  present  code  are  discussed  later  in  this  appendix, 
but  there  follows  first  a  less  general,  but  more  Immediately  enlighten¬ 
ing,  explanation. 


General  Development 


Consider  first  a  physical  rectangle  with  equally  spaced  points  on 
the  horizontal  sides  but  the  same  unequal  spacing  on  the  two  vertical 
sides.  With  no  control  functions,  i.e.,  Eq.  (B-11)  of  Appendix  B 
will  produce  a  grid  that  attempts  to  be  equally  spaced  away  from  the 
unequal  spacing  on  the  vertical  sides; 
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A  grid  of  parallel  lines  for  this  configuration,  reflecting  the  unequal 


spacing  on  the  boundaries: 


can  only  be  produced  from  Eq.  (B^ll)  with  (taking  to  vary  on 

2 

the  horizontal  sides  and  5  to  vary  on  the  vertical  aides). 

The  proper  values  of  needed  to  accomplish  this  are  determined 
by  evaluating  Eq.  (B-11)  one‘-dimenaionally  on  the  vertical  sides,  with 
the  result 


+  p  V 
2  ^^2 


0 


so  that 


P 


2 


(O 


If  there  are  J  points  on  the  vertical  sides,  and  I  points  on  the  hori>- 
zontal  aides,  the  control  function  ?2  the  vertical  sides  then  can  be 
evaluated  from  the  point  distribution  thereon  as 


P  (1  j)  .  -  ■-  i 

^  ^  Cyd.J+D  -  y(i,J-i)] 


for  J-2,3,^’', J-1  ,  with  an  analogous  equation  with  I  for  the  first  argu^ 
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ment.  The  values  of  in  the  interior  of  the  region  then  can  be  in¬ 
terpolated  between  the  two  vertical  sides: 


A  similar  evaluation  of  the  other  control  function,  ,  on  the  two 
horizontal  sides  from 


P 


1 


(2) 


produces  a  zero  in  the  present  case  with  equal  spacing  on  these  sides. 
In  the  case  of  unequal  spacing,  the  values  of  P^  in  the  interior  of  the 
region  would  be  evaluated  by  Interpolation  between  the  values  on  the 
two  horizontal  sides; 


With  the  control  functions  evaluated  in  this  manner,  Eq. 
will  produce  a  grid  composed  of  parallel  straight  lines  for  this  bound'' 
ary  configuration,  thus  reflecting  the  boundary  point  spacing  into  the 
field. 

Now  consider  an  O-'type  grid  with  two  concentric  circular  bounda¬ 
ries  and  equally  spaced  points  around  the  circles.  Because  of  its 
Inherent  tendency  to  cause  the  grid  lines  to  move  closer  to  convex 
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boundaries,  Eq.  (B-11)  with  no  control  functions,  will  produce  a  grid 
with  unequal  radial  spacing  of  the  circumferential  lines: 


In  this  case,  evaluation  of  Eq.  (1)  with 

2 

x(r,e)  •>  r(C  )cose 
y(r,e)  -  r(C^)sin6 


yields  the  equation 


(3) 


Thus,  in  order  to  produce  a  specified  radial  distribution  of  lines,  the 

control  function  must  be  evaluated  from  Eq.  (3)  using  the  given  dis^ 
2 

trlbutlon  r(5  ).  Now  the  computational  field  here  has  its  two  vertical 
sides  corresponding  to  a  cut  between  the  two  circular  boundaries  in  the 
physical  field: 
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Therefore  with  the  specified  radial  distribution  placed  on  the  two  ver^ 


tlcal  sides  of  the  computational  field,  the  control  function  can  be 
evaluated  from  Eq.  (3)  on  these  sides  as 

P  (i.j)  .  -  [rd.J^D  -  2r(1.J)  ^  rd.J^D] 

I  Cr(1,j+1)  r(1,j-1)] 

^  [rd.J+D  -  r(1,j-1)] 
rd.J) 

and  a  similar  equation  with  I  as  the  first  argument.  The  interior  val¬ 
ues  then  can  be  determined  by  interpolation  between  the  two  vertical 
sides  as  before.  Note  that  this  amounts  to  interpolation  in  the  cir^ 
cumferential  direction  in  the  physical  plane,  as  indicated  in  the  fig-, 
ure  below.  Again,  equal  spacing  around  the  circles  produces  a  zero 
value  of  the  other  control  function,  .  In  general,  would  be  eval¬ 
uated  on  the  two  circles  and  interpolated  between  the  two  horizontal 
sides  in  the  computational  region,  i.e.,  between  the  two  circles  in  the 
physical  field: 
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The  second  term  in  Eq.  (3)  arises  from  the  curvature  of  the  bound¬ 
ary,  and  the  denominator  is  the  local  radius  of  curvature  of  the  grid 
line  that  is  to  pass  through  the  point  where  the  control  function  is 
being  evaluated.  This  term  acts  to  reduce  the  magnitude  of  the  control 
function  in  order  to  allow  for  the  natural  tendency  of  the  grid  lines 
to  move  toward  convex  boundaries.  Since  the  lines  tend  to  concentrate 
near  the  inner  circle  even  with  zero  control  functions,  the  use  of  the 
first  term  alone  in  Eq.  (3),  (in  analogy  with  the  flat  boundary  case, 
i.e.,  Eq.  (1)),  would  produce  a  stronger  concentration  of  lines  near 
the  inner  circle  than  was  Intended. 

Finally,  consider  a  C-type  grid: 


with  the  computational  region 
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If  now  the  control  function  P2  is  evaluated  on  lines  1-2  and  iJ-3  in  the 
physical  field  from  Eq.  (1),  and  the  interior  values  are  interpolated 
between  the  two  vertical  sides  in  the  computational  field,  the  rer 
suiting  control  function,  while  serving  well  over  the  right  portion  of 
the  physical  field,  will  be  too  strong  over  the  inner  body  where  the 
line  curvature  is  not  zero.  The  use  of  Eq.  (3)  on  the  lines  1-2  and 
4-3  would  be  no  better  since  the  r  in  the  denominator  is  to  be  interr 
preted  as  the  local  radius  of  curvature  of  the  crossing  line  and  hence 
is  infinite  on  these  lines  so  that  the  second  term  in  Eq.  (3)  vanishes. 

This  situation  can  be  remedied  by  interpolating  for  the  local  ra^- 
dius  of  curvature  in  Eq.  (3)  between  the  inner  and  outer  boundaries  in 
the  physical  field,  i.e.,  between  the  horizontal  sides  in  the  compute^ 
tlonal  region.  However,  since  the  C  derivatives  in  Eq.  (3)  must  still 
be  evaluated  on  the  vertical  sides  it  is  necessary  to  separate  Eq.  (3) 
into  three  pieces: 


'"22  *"2 

-  ^  .  -5-  -  A, 

r  r  2 


(5) 


where  is  the  contribution  from  the  rate  of  change  of  the  arc  length 
spacing, 


3^  in  the  arc  length  spacing. 


315 


and  Is  the  radius  of  curvature, 

P2  *  ^ 

Now  the  arc  length  contributions,  and  s^,  are  evaluated  on  the  verr 
tlcal  aides  of  the  computational  region,  while  the  radius  of  curvature, 
p^,  is  evaluated  on  the  two  horizontal  sides.  The  control  function  in 
the  interior  then  is  evaluated  by  Interpolating  the  arc  length  contri¬ 
butions  between  the  vertical  sides  Interpolating  the  radius  of  curva^ 
ture  between  the  horizontal  aides,  and  then  evaluating  from  Eq.  (5) 
using  these  Interpolated  values: 


Note  that  this  procedure  supplies  a  finite  radius  of  curvature  over  the 
Inner  body,  thus  reducing  the  control  function  appropriately  in  this 
region. 

A  problem  arises,  however,  when  the  radius  of  curvature  is  of  op¬ 
posite  sign  on  the  two  boundaries  between  which  it  is  Interpolated: 
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since  then  the  interpolation  will  produce  a  zero  value  at  some  point  in 
between,  and  at  such  a  point  the  second  term  of  Eq.  (5)  is  finite. 
Special  measures  are  then  necessary  as  discussed  in  Appendix  G. 

Although  the  exact  equations  for  the  general  case  are  more  compli'- 
cated,  they  still  may  be  separated  into  terms  arising  from  the  spacing 
along  a  boundary  and  terms  arising  from  the  local  curvature  of  the 
crossing  lines,  with  the  spacing  terms,  A^  and  s^,  for  the  control 
function  being  Interpolated  between  the  four  sides  on  which  var.- 
ies: 


and  the  curvature  term,  p^,  for  interpolated  between  the  two  sides 
on  which  P  is  constant; 
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(6) 


The  Gontrol  function  is  then  evaluated  from 

s 

P  -  A  +  — 
n  n 

The  question  that  then  arises  is  whether  the  transflnlte  Interpo¬ 
lation  for  the  spacing  terms  and  the  curvature  term  should  use  linear 
blending  functions  or  blending  functions  based  on  physical  arc  length. 
The  former  (linear)  amounts  to  interpolating  in  terms  of  the  curvilin¬ 
ear  coordinate,  while  the  latter  (arc)  amounts  to  interpolation  with 
respect  to  the  physical  distance.  For  example,  on  the  grid  illustrated 
below: 


interpolation  with  linear  blending  functions  would  produce  a  value  on 
line  3  that  is  the  average  of  that  on  lines  1  and  5,  while  with  arc 
blending  functions  the  value  produced  on  line  3  would  be  closer  to  that 
on  line  1 .  The  code  uses  linear  blending  functions  for  the  arc  length 
contributions,  A  and  s,  and  blending  functions  based  on  arc  length  for 
the  radius  of  curvature. 

Evaluation  along  a  coordinate  line 

0 

The  projection  of  Eq.  (B-ll)  along  a  coordinate  line  on  which  ^ 
varies  is  found  by  forming  the  dot  product  of  this  equation  with  the 
covariant  base  vector  •  r  which  is  tangent  to  the  line. 
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Thus  we  have 


3  3 

I  I  C  0 

i«1  j“1  C 


3 


>  I 

k-1 


kk  _ 

2  \ 


(7) 


Now  assume  for  the  moment  that  the  two  coordinate  lines  crossing  the 
coordinate  line  of  interest  do  so  orthogonally.  Then  on  this  line  we 
have 


and 


*  ~^k  2k  *  ®ilk  ' 

which  leads  to  an  explicit  equation  for  on  the  coordinate  line  of 
interest: 
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3  3 

P, - r  ,  •  I  I  s'J  r 

ll  c  i-1  J-1  C  (8) 

®  hi 

If  it  l3  further  assumed  for  the  moment  that  the  two  coordinate 
lines  crossing  the  coordinate  line  of  interest  are  also  orthogonal  to 
each  other,  l.e.,  complete  orthogonality  on  the  line  of  interest, 


we  have  on  this  line  g^'^  -  ®ij  “  ^ij®ii' 


^  )  CyCliC 

g  mm  nn  ran  g  inm^nn 


HZ 

since  m  >  n.  But  also  g  -  so  ^^Tst  g  Then  Eq.  (8) 

becomes 


h‘  ~  ^  i  '  i  i 

1-1  ®ii  C  5  C 


which  can  also  be  written  as 


(9) 
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p 


I 


3 


^  I 

i-1 


(ai)^l 


(10) 


I 

The  derivative  of  arc  length  along  the  coordinate  line  on  which  5  var¬ 
ies  is 


(11) 


Then 


s 


ih'- 


(12) 


so  that  the  logarithmic  derivative  of  arc  length  along  this  coordinate 
line  is  given  by 


an 

3  . 


-  a  a 

-o: 


p  •  p 


Ic 


g< 


a  a 


(13) 


which  is  exactly  the  l«a  term  in  the  summation  in  Eq.  (9). 


The  unit  tangent  to  a  coordinate  line  on  which  5  varies  is 


r 


and  the  derivative  of  this  unit  tangent  with  respect  to  arc  length  is  a 
vector  that  is  normal  to  this  line,  the  magnitude  of  which  is  the  cur¬ 
vature,  K,  of  the  line.  The  unit  vector  in  this  normal  direction  is 
the  principal  normal,  N,  to  the  line. 
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Thus,  using  Eq.  (11), 


k"n”  -  (1^) 

'3 

Then 


r 


(15) 


(16) 


so  that  the  curvature  Is 


(17) 


The  component  of  along  the  coordinate  line  on  which  varies 


since  r  .  •  r  -  0  for  m  Then  the  two  terms  of  the  summation  in 

Eq.  (9)  for  which  m  i*  £  can  be  written  as 

I"  »  •  f' 

-  |r  «  /gT:  (m  ^  a)  (19) 

®mm  5 


Thus  Eq.  (9)  can  be  written 

+  (kV)^^^]  (£-1,2,3)  (20) 

where  (£,ni,n)  are  cyclic.  This  is  the  equation  used  in  CONLINE.  The 
separate  evaluation  of  the  arc  length  and  curvature  contributions  in 
CONSURR  and  CONLINR  also  are  based  on  this  equation.  The  arc  length  in 
the  expressions  in  (20)  for  the  control  function  along  the  coor- 

I 

dinate  line  on  which  5  varies  can  be  determined  entirely  from  the  grid 
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point  distribution  on  the  line.  The  other  two  terms  in  however, 
involve  derivatives  off  this  line  and  therefore  must  either  be  deter¬ 
mined  by  specifications  of  the  components  of  the  curvatures  KN  of  the 
crossing  lines  along  the  line  of  interest  or  by  interpolation  between 
values  evaluated  on  coordinate  surfaces  intersecting  the  ends  of  this 
line  (cf.  Ref.  11). 


If  it  is  assumed  that  the  curvatures  of  these  crossing  lines  vanish  on 
the  coordinate  line  of  Interest,  then  the  last  two  terms  in  Eq.  (20) 
are  zero,  and  the  control  function  becomes  simply 

(20 

and  then  can  be  evaluated  entirely  from  the  specified  point  distribu¬ 
tion  on  the  coordinate  line  of  interest. 

The  neglect  of  the  curvature  terms,  however,  is  ill-advised  since 
the  elliptic  system  already  has  a  strong  tendency  to  concentrate  lines 
over  a  convex  boundary,  as  has  been  noted  in  Appendix  B.  Therefore  ne¬ 
glect  of  the  curvature  terms  will  result  in  control  functions  which 
will  produce  a  stronger  concentration  than  Intended  over  convex  bound¬ 
aries  (and  weaker  over  concave).  When  interpolation  from  the  end 
points  is  used  to  determine  the  curvature  term,  the  entire  term  (KN) 
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should  be  interpolated,  since  Individual  interpolation  of  the  vectors 


r  and  r  can  give  an  inappropriate  value  for  the  dot  product. 

It  should  be  noted  that  the  assumptions  of  orthogonality,  and  per¬ 
haps  vanishing  curvature,  that  were  made  in  the  course  of  the  develop¬ 
ment  of  these  expressions  for  the  control  functions  on  a  coordinate 
line  are  not  actually  enforced  on  the  resulting  coordinate  system,  but 
merely  served  to  allow  some  reasonable  relations  for  these  control 
functions  corresponding  to  a  specified  point  distribution  on  a  coor¬ 
dinate  line  to  be  developed.  This  should  not  be  considered  a  source  of 
error  since  the  control  functions  are  arbitrary  in  the  generation  sys¬ 
tem  (B-1 1  ) . 

Evaluation  on  a  coordinate  surface 

In  a  similar  fashion,  expressions  for  the  control  functions  on  a 

0 

coordinate  surface  on  which  ^  is  constant  can  be  obtained  from  the 
projections  of  Eq.  (B-11)  along  the  two  coordinate  lines  lying  on  the 
surface,  l.e.,  the  lines  on  which  c'"  and  c"  vary,  ()!,,m,n)  being  '’vclic. 


These  projections  are  given  by  Eq.  (7)  with  I  replaced  by  m  and  n,  re¬ 
spectively.  If  it  is  assumed  for  the  moment  that  the  coordinate  line 
crossing  the  coordinate  surface  of  interest  is  orthogonal  to  the  sur¬ 
face 
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then  r  „  •  r  =r.*  r  *0,  so  that  P.  is  removed  from  both  of 

■5'  'e"  'e'  's"  ‘ 

these  two  equations  to  yield  the  equation 


i«1  j=1 


r  + 


g  g, 


mm^m 


^  nn  _  - 

+  (?  K  P  -  0 
®  ®nn  n 


and  an  analogous  equation  with  m  and  n  interchanged.  Solution  of  these 

two  equations  for  P  and  P  then  yields 
m  n 


P 

m 


<8nn 


M 


r  . 


""  e”  iti  .1-1  'e‘e^ 


mm-  2  . 

g  ^  g„„g„„  "  8™.  > 

mm  nn  '’mn 


(22) 


with  an  analogous  equation  for  P^  with  m  and  n  interchanged.  Sinco  g^^^ 

£in  An 

*>  =  0  it  follows  g  -  g  «  0.  Therefore  only  the  five  terms,  £.11, 

mm,  nn,  mn,  nm,  are  non-zero  in  the  summation.  Also 


a 

mm  °nn 

g  -  - - - 

PC  K  PC 

®mm®nn  °mn 

2 

since  here  g  =  det|g,.|  «  g»„(g  g  -  g  ) .  An  analogous  equation  for 
'  Ij '  x£  mm  nn  mn 

g^*^  is  obtained  by  interchanging  m  and  n. 

Then  Eq.  (22)  can  be  rewritten  as 
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(23) 


A 


-  '’„)•(  Z  8  Z  1  1  Z  m  n' 

""_rn  K _ **>»^  i  < 


^  "c"  ®nn  5 


i»1  C  r 


and  an  analogous  equation  for  P^  with  m  and  n  interchanged.  But, 


il  t  .  mn 

g  -  - —  and  g 

hi 


~S, 


mn 


R  Mil 

mm  nn  mn 


Therefore 


(- 


1  ,  ®mn  . 

-  Ilf  K»  —  ■■■  P  /  •  f* 

*«  -{"  *nn  -t*5‘ 


^mn 

r  -  -  r 

'C"*  ®nn 


®mm®nn  ®mn 


S„„  C  „  „  "  2g^„  ■"  m 

nn  "*_rn_rn  oinn  „n_n  inn  ^iD_n 

5  C  C  C  C  C 


(2i<) 


and  the  analogous  equation  with  m  and  n  interchanged.  This  is  the 
equation  used  in  CONSURF. 

All  of  the  terms,  except  the  first,  in  the  above  equations  can  be 
evaluated  completely  from  the  point  distribution  on  the  coordinate  sur¬ 


face  of  Interest. 


The  first  term  in  (2^)  can  be  written 


[/iZ  (kV)<">  -  ^ 


mn 


"nn 


where  and  are  the  components  of 
for  the  coordinate  line  crossing  the  coordinate 
along  the  two  coordinate  lines  on  the  surface. 


(25) 

the  curvature  KN 
surface  of  interest 


These  quantities  must  be  either  specified  on  the  surface  or  interpo¬ 
lated  from  values  evaluated  on  its  intersections  with  the  other  coor¬ 
dinate  surfaces.  If  it  is  further  assumed  that  the  curvatui  e  of  the 
crossing  line  vanishes  at  the  surface,  then  this  first  term  in  Eq.  (24) 
vanishes  also. 

As  was  noted  for  the  control  functions  on  a  line,  the  curvature 
terms  should  not  be  neglected,  however,  else  the  concentration  will  be 
stronger  than  Intended  over  convex  boundaries  and  weaker  over  concave. 
Also,  it  is  the  entire  term  KN  which  should  be  interpolated,  not  the 
individual  vectors  involved,  else  the  dot  product  can  have  inappropri¬ 
ate  values. 
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APPENDIX  D 


ITERATIVE  ADJUSTMENT  OF  CONTROL  FUNCTIONS  FOR  BOUNDARY  ORTHOGONALITY 


A  second-order  elliptic  generation  system  allows  either  the  point 
locations  on  the  boundary  or  the  coordinate  line  slope  at  the  boundary 
to  be  specified,  but  not  both.  It  is  possible,  however,  to  iteratively 
adjust  the  control  functions  in  the  generation  system  of  the  Poisson 
type  discussed  above  until,  not  only  a  specified  line  slope,  but  also 
the  spacing  of  the  first  coordinate  surface  off  the  boundary  is 
achieved,  with  the  point  locations  on  the  boundary  specified  (cf.  Ref. 
15). 


In  three  dimensions  the  specification  of  the  coordinate  line  slope 
at  the  boundary  requires  the  specification  of  two  quantities,  e.g. ,  the 
direction  cosines  of  the  line  with  two  tangents  to  the  boundary. 


The  specification  of  the  spacing  of  the  first  coordinate  surface  off 
the  boundary  requires  one  more  quantity. 


and  therefore  the  three  control  functions  in  the  system  Eq.  (B-11)  of 
Appendix  B  are  exactly  sufficient  to  allow  these  three  specified 
quantities  to  be  achieved,  while  the  one  boundary  condition  allowed  by 
the  second-order  system  provides  for  the  point  locations  on  the 
boundary  to  be  specified. 

General  Development 


To  illustrate  this  development,  an  Iterative  procedure  can  be 
constructed  for  the  determination  of  the  control  functions  in  two 


dimensions  as  follows  (Ref.  15).  Consider  the  generation  system  given 

1  2 

by  Eq.  (B-11)  in  two  dimensions  (with  C  “  5*  5  “  n,  •=  x,  and 
*  y  here).  On  a  boundary  segment  that  is  a  line  of  constant  n  we 
have  r^  and  r^^  known  from  the  specified  boundary  point  distribution 


also 


r 

I 


the  spacing  off  this  boundary,  is  specified 
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r 


1 


l''ril 


as  is  the  condition  of  orthogonality  at  the  boundary,  i.e.,  r^  •  r^ 

0, 


2  2 

But  specification  of  |r^|  «  /x^  +  y^,  together  with  the  condition 

r,*r  *x„x  +y,y  =0  provides  two  equations  for  the  determination  of  x 
-C  ~n  n  C  n  r-  n  ^ 

and  y^  in  terms  of  the  already  known  values  of  the  x^  and  y^. 

Therefore  r  is  known  on  the  boundary. 

-n 

Because  of  the  orthogonality  at  the  boundary,  Eq.  (B‘-11) 
reduces  to  the  following  equation  on  the  boundary: 

Ir  [^(r  +  Pr  )  +  |r,.(^(r  +  Qr  )  •=  0 

-nn  '-V  -5^  ~h 

Dotting  r,  and  r  into  this  equation,  and  again  using  the  condition  of 
-t  ~h 

orthogonality,  yields  the  following  two  equations  for  the  control 
functions  on  the  boundary: 
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All  of  the  quantities  in  these  equations  are  known  on  the  boundary 

except  r  .  (On  a  boundary  that  Is  a  line  of  constant  the  same 

'-nn 

equations  for  the  control  functions  result,  but  now  with  r^^  the 
unknown  quantity)- 

The  iterative  solution  thus  proceeds  as  follows: 

( 1 )  .  Assume  values  for  the  control  function  on  the 

boundary. 

(2) .  Solve  Eq.  (1)  to  generate  the  grid  in  the 

field, 

(3) -  Evaluate  r  on  n~line  boundaries,  and  r_.  on 

-nn 

^-line  boundaries,  from  the  result  of  Step 
(2),  using  one-sided  difference  representa¬ 
tions.  Then  evaluate  the  control  functions 
on  the  boundary  from  Eqs.  (2)  and  (3). 

Evaluate  the  control  functions  in  the  field 
by  Interpolation  from  the  boundary  values. 

Steps  (2)  and  (3)  are  then  repeated  until  convergence. 
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Implementation 


An  iterative  solution  procedure  for  the  determination  of  the 
three  control  functions  for  the  general  three'-dimensional  case  can  be 
constructed  as  follows.  Eq.  (C-2i«)  of  Appendix  C  gives  the  two  control 

jj, 

functions,  P  and  P  ,  for  a  coordinate  surface  on  which  c  is  constant 
m  n 

(i,m,n  cyclic)  for  the  case  where  the  coordinate  line  crossing  the 

surface  is  normal  to  the  surface.  Taking  the  projection  of  the 

generation  equation  (B-11)  of  Appendix  B  on  the  coordinate  line  along 
0 

which  ^  varies,  we  have  on  this  same  surface. 


3  3 


I  ^  C  ff  *  C  i  1  ^  ^  ”  0 

i-1  j-1  r  5  r 


since  «  gj^^  are  to  be  zero  on  the  surface.  Proceeding  as  in 
Appendix  C,  this  equation  reduces  to 


P.  - - ^ 


mm  nn  mn 


f  ~ 

nn  ~  m  m  mm  -_n  n  mn  -  m  n 

^  ^  S  S  V  ^ 


Since  the  coordinate  line  intersecting  the  surface  is  to  be 
normal  to  the  surface,  we  may  write 


c  t  ■  h"\t 


a  X  a 
-m  -n 


a  X  a  I 
-m  -n ' 
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since 


I  |2  2 

' -m  -n '  mm  nn  mn 


Eq.  (i*)  can  then  be  written 


'8, 


'll 


(a  X  a  ) 


o  ,  2  ,3/2  -m  “  =n' 

^hl  ^®mm®nn  “  ®mn^ 


[g„„(a  ) 

nn  ~m  ^m 


g„„(a„)  ^ 
mm  ~n  ^n 


-  2g  (a  ) 
®mn  ~m 


] 


(5) 


With  the  spacing  along  the  coordinate  line  intersecting  the 
surface  specified  at  the  surface,  we  have  lc  ^1  “  known  on  the 
surface.  Since  all  the  quantities  subscripted  m  or  n  in  Eq.  (C-2i*)  and 
(5)  can  be  evaluated  completely  from  the  specified  point  distribution 
on  the  surface,  we  then  have  all  quantities  in  these  equations  for  the 
three  control  functions  on  the  surface  known  except  for  and 
(a^j^)  These  two  quantities  are  not  independent,  and  using  Eq.  (4), 
we  have 
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(6) 


2a„ 


(a_ 


X  a„) 


nn 


"  8, 


mn 


Recall  also  that  (a  )  -  r  .  .. 

~5  5 

Therefore,  with  the  control  functions  in  the  field  determined 
from  the  values  on  the  boundary  by  interpolation,  as  discussed  in  the 
preoeeding  section,  Eq.  (C-2*«)  and  (5)  can  be  applied  to  determine  the 
new  boundary  values  of  the  control  functions  in  terms  of  the  new  values 
of  (gj^)  ^  in  an  Iterative  solution.  Upon  convergence,  the  coordinate 
system  then  will  have  the  coordinate  lines  intersecting  the  boundary 
normally  at  fixed  locations  and  with  the  specified  spacing  on  these 
lines  off  the  boundary. 

The  three  equations  for  the  control  functions  on  the  surface  can 
be  written  in  the  following  notation,  taking  advantage  of  common  terms. 


where 


P 


m 

P 


•  5 

•  h 

A 


C  il  t  ^  2 

c  c 


®mm®nn  ®mn 


2  nn-_m_m  mm~_n_n  mn~_m  n 
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B,  .  J_(r  -  fa  r  ) 
B.  -  (r  “  r  ) 

«u  -5"  e-,  -5" 


c  - 


r  X  r 


Here  all  quantities  except  the  r  ,  .  that  appears  in  A  can  be  evaluated 
from  the  boundary  point  distribution  and  the  specified  off-boundary 
spacing.  In  previous  applications  the  relations  have  been  applied  on 
the  boundary  and  the  control  function  Increments  generated  at  the 
boundary  have  been  interpolated  into  the  field  (Ref.  15).  In  the 
present  code,  these  relations  are  applied  on  each  successive  coordinate 
surface  off  the  boundary,  with  the  off -surface  spacing  determined  by  a 
hyperbolic  sine  distribution  from  the  spacing  specified  at  the 
boundary.  The  control  increments  are  attenuated  away  from  the 
boundary,  and  contributions  are  accumulated  from  all  orthogonal 
boundary  sections. 


n 
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APPENDIX  E 


»  SPLINE 

The  set  of  grid  points  r(5),  C“1,2, — ,N,  Is  spllned  with  the  cur- 

I 

villnear  coordinate  5  as  the  parameter.  Thus  on  the  Interval 
^^+1,  the  curve  Is  given  by  the  cubic  polynomial 

r(u)  -  i  s^(1-u)3  +  1  s^^,u3 

*  (Cl  "  i  ai)(l-u)  ^  J  3^^^)u  (1) 

where  s  *  r^^  and  0  <  u  <  1,  l.e.,  ^  +  u,  and  r^.  *  C1  +  1  “ 

etc. 

The  second  derivatives  are  determined  by  the  tridiagonal  solution 
of 


5l-1  ‘  ‘'Si  '  Sl.l  •  *  Cl-,) 


(2) 


for  i^P.S.-'.N-l .  The  end  values  are  determined  in  one  of  three  ways; 


(1)  zero  curvature  (natural  spline); 


5,  ■  5n  -  0 


(2)  constant  curvature  (quadratic  ends) 


'i  ‘  ^§2  ■  53 


®N  “  ^2n-1  "  -N-2 


(3)  specified  slopes; 
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iv)|-^  rvj|— J 


§1  -  3(r;2  -  C,)  ^  3s,  -  2 


i<r2 


§N  “  •*■  3Sjj  -  2  2n-i 

where  g  «  r_ 

a  • 

In  the  first  case  above,  Eq.  (2)  Is  replaced  by  the  following 
equations  for  1-2  and  N-1 : 


^§2  23  “  ^^-3  ~  ^^2  ^  -1^ 


^-N-1  -N-2  “  "  ^-N-1  -N-2^ 


while  in  the  second  case 


^§2  *  ^^-3  ~  ^-2  ^  '1 ^ 


^§N-1  "  "  ^'N-1  ~N«2^ 


and  In  the  third  case 


^2  -3  -  ^(r^  -  2r2  +  Ci  ^  3g^  ^  3{r2  “  Ci ) 


s_  +  3. 


5n-1  "  V2  "  "  ^En-i  ^  Cn-2^  "  ^  3(rj,  ■-  rj,_,  ^  rj,^2^ 

The  slopes,  g  •  r^,  are  given  by 

Si  -  I  <Ci.i  “  "  TI 
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APPENDIX  F 


NORMAL  ON  SPLINED  SURFACE 

The  use  of  Neumann  boundary  condition  requires  that  a  boundary 
moves  over  the  surface  to  lie  at  the  foot  of  surface  normal  from  the 
adjacent  point  in  the  curvilinear  direction  off  the  surface; 


To  allow  this  movement  over  the  surface,  a  splined  surface  is  created 
from  the  initial  grid  on  the  surface  section  involved.  This  gives  a 
bicubic  representation  of  the  surface  within  each  cell  of  the  original 
surface  grid  (a  tensor-product  patch)  over  which  the  boundary  point  can 
move.  The  representation  of  this  patch  on  the  cell  shown  below,  with 
the  two  curvilinear  coordinates  on  the  surface  represented  by  5  and  n. 


is  as  follows;  (cf.  Ref.  16); 


"p{0,0) 

r(0,1 ) 

ry(0,0) 

"aoCv) 

r(u,v)  =■  [aQ(u)  a^(u)  Bg(u)  6^(u)] 

r(l ,0) 

r(1 ,1) 

o 

> 

(v) 

ru(0,0) 

r^,(0,1) 

*•^^(0,1) 

6o(v) 

1 - 

1 

c 

o 

PyCl ,1 ) 

.0) 

B^Cv) 
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where  a  point  on  this  patch  is  located  at  (t+u,  n+v) ,  with  0  <  u  <  1 
and  0  <  V  <  1 .  In  terms  of  u  and  v,  the  patch  corners  thus  are 


This  can  be  written  more  concisely  as 

r(u.v)  -  F(u)  Q  f'^(v)  (2) 

with  the  obvious  definitions  of  F  and  Q. 

For  cubic  splines,  the  blending  functions  in  F  are 


3 

O 

r  2  3  n 

1  -  3u  +  2u^ 

a.  (u) 

2  3 

3u  r  2u^ 

o 

c 

u  ^  2u^  +  u^ 

[6l(u)_ 

_-u2  .  u3 

The  elements  of  Q  are  determined  by  splining  the  surface  as  fol*- 
lows.  First,  each  set  of  points  in  the  ^'direction  is  splined  (using 
quadratic  ends,  i.e.,  constant  curvature  at  the  ends); 
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This  determines  r^  at  each  grid  point.  Independently,  each  set  of 
points  in  the  ti"  direction  is  splined: 


determining  r  at  each  grid  point.  Next  the  values  of  r^  on  the  two 
~n 

edges  on  which  n  is  constant  are  splined  using  specified  zero  values  of 

(r_)  r.  at  the  ends  of  these  curves,  i.e.,  at  the  corners  of  the 

n 

surface: 


This  gives  (r  )  r  at  each  point  on  these  two  edges.  Finally,  the 

values  of  for'  each  set  of  points  In  the  C^direction  are  splined  us- 

ing  the  specified  values  of  (r  -  r^  at  the  ends.  This  provides 

~n  t  'th 

(r^)^  “  each  grid  point,  thus  completing  the  determination  of 

the  elements  of  Q. 
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With  Q  known,  Eq.  (2)  locates  any  point  at  (^+u,n+v)  on  the  patch. 
Now  the  foot  of  the  normal  to  the  surface  from  an  adjacent  field  point 
will  be  at  the  location  of  the  surface  point  closest  to  the  field  point 
in  question: 


With  the  field  point  at  R,  the  square  of  the  distance  to  a  point  r  on 
the  surface  is  (R-r)  •  (R-r)  so  that  the  minimum  distance  is  determined 
by  the  system 

(R-r)  •  r^  “  0 


(R-r)  •  r  “0 
-  ~  -n 

On  the  surface  spline  we  have  r,-r  and  r  -r  ,  and  in  order 
^  -u  -n  -V 

scaling  problems  the  system  used  in  the  code  is 

r 

FU(u,v)  -  (R  “  '  Tr^  *  ^ 

• -u' 
r 

FV(u,v)  -  (R  -  r)  •  «  0 

which  is  solved  by  Newton  iteration. 


to  avoid 


(5a) 

(5b) 
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From  Eq.  (2) 


-  f'(u)  Q  F^(v) 

-  F(u)  Q  f"^(v) 


(6) 


and 


F  (u) 


r-  1  -  6u  +  6u 
6u  -  6u^ 

1  "  i(u  +  3u^ 
^2u  +  3u^ 


(7) 


The  Iteration  then  Is 


n+1 

n 

_  _ 

u 

u‘ 

u 

fir 

+  A 

_v. 

.V. 

(8) 


with 


'  u' 

■  FU' 

J  A 

s  *• 

_  V. 

-FV. 

(9) 


where 


9FU 

9FU 

9u 

9v 

9FV 

9FV 

9u 

9v 

(10) 


From  (5), 


,  9FU 
11  “  9u 


R  ^  r 


=  -  r 


'-u* 


-  r  (r 
uu  ~u  -u 


r  )] 
-uu 
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3FU 

r  T  R  “ 

r 

l^r. 

r  (r 
-u  -u 

3v 

l^ul  Ir 

il  * 

1  -uv 

i-u 

1 

3FV 

.  VCv  5  “ 

r 

Ckyl 

,2 

-■  r  (r 

-V  -V 

3u 

ky\  '  \r 

[3  * 

1* 

1  -uv 

\Zy\ 

1 

3FV 

R  ^ 

_  l~  1  +  ; _ 

r 

I — 1 

n 

< 

2 

-  r  (r 

-V  -V 

3v 

'-v'  , 

* 

~vv 

and  from  (6) 


-uu  “  ® 


»  F(u)  Q  f"'^(v) 


(11) 


V  °  ^vu  ”  ^ 


with 


APPENDIX  G 

INTERPOLATION  FOR  RADIUS  OF  CURVATURE 

The  radius  of  ourvature  in  the  expressions  for  control  functions 
given  in  Appendix  C  requires  some  care  in  order  to  ensure  generality. 
The  construction  of  the  control  functions  from  arc  length  and  curvature 
contributions  de/eloped  in  that  appendix  arises  from  consideration  of 
concentric  spheres.  Therefore,  the  baseline  distribution  for  the  radius 
of  curvature  is  linear.  However,  in  general  configurations,  the  two 
surfaces  between  which  the  radius  is  interpolated  may  have  greatly 
differing  curvatures  which  may  even  be  of  opposite  signs.  Flat  surfaces 
have  infinite  radius  of  curvature,  and  such  surfaces  will  occur  in  the 
field  between  two  surfaces  with  curvature  of  opposite  signs,  as  well  as 
on  boundaries.  Therefore  simple  linear  interpolation  for  the  radius  is 
out  of  the  question  in  general,  but  must  still  be  approached  in  many 
cases.  The  construction  used  is  as  follows: 

The  interpolation  is  between  the  two  ends  of  a  curvilinear 
coordinate  line  between  two  surfaces; 
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This  interpolation  is  based  on  the  hyperbolic  sine  function  and  depends 
on  the  sign  of  the  curvature  on  the  two  surfaces. 

In  the  following  discussion,  the  radius  of  curvature  of  the 
surface  at  the  lower  value  of  is  p^,  and  that  on  the  other 
surface  is  p^.  The  arc  length  of  the  curvilinear  coordinate  line 
between  the  surfaces  is  A,  and  the  relative  arc  length  (range  0-1)  at 
the  point  on  this  line  where  the  radius  of  curvature  is  interpolated  as 
s. 

The  Interpolation  is  constructed  as  a  departure  from  the  linear 
distribution  that  would  prevail  between  two  spherical  surfaces.  The 
departure  from  linearity  is  made  to  be  slight  for  some  distance  from 
the  surface  with  the  smaller  radius  in  order  to  allow  for  flat 
surfaces.  (Surfaces  with  radius  of  curvature  greater  than  a  length 
scale  RSCAL  (Section  II-C13)  are  considered  to  be  flat  and  are  given  a 
radius  equal  to  that  value.) 

When  both  surfaces  have  positive  curvature 


s  =  i 


the  construction  Is  as  follows:  If  is  the  smaller,  and  p^  is  equal 
to  the  value  that  would  occur  for  two  spherical  surfaces  separated  by  a 
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distance  equal  to  the  arc  length  A,  of  the  connecting  coordinate  line, 
then  the  distribution  is  linear: 

p(3)  ■=  +  As 

If  P2  exceeds  p^  +  A,  the  distribution  is 
p(s)  =  (p^  +  As)  +  f(3) 

where  f(0)  «  0,  f(1 )  »  p-  ^  (p,  +  A),  and  f„(0)  =  0.  The  function  f(s) 

^1  s 

is  made  to  vary  very  slowly  away  from  its  initial  value  of  zero  by  us¬ 
ing  the  hyperbolic  sine: 

r(3)  .  A  (Sispi-s) 

where  the  parameter  6  is  determined  by  the  condition  on  f(1): 

sinh  6  ^2  ""  ^1 

6  “  A 


Substituting  for  f(s)  in  p(s),  the  distribution  for  this  case  is  then 
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given  by 


.  /  X  3lnh  63 

P(s)  .  p,  .  (Pj  -  p,) 


If,  however,  is  less  than  +  A,  the  construction  is  similar, 
but  with 


p(3)  »  (p^  +  As)  ^  f(s) 


and  now  f(1)  =  (p^  +  As)  -  so  that  6  is  determined  by 


alnh  6  ~  ^2 

6  ^  A  " 


Substitution  for  f(s)  yields  the  distribution 


p(3)  -  p^  .  2A3  -  (p,  ^  p,  .  2A) 

Note  that  this  form  applies  even  for  p^  <  p^,  which  occurs,  for  exam¬ 
ple,  for  a  circle  inside  a  box: 
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-f 


where  the  radius  of  curvature  at  the  corner  is  much  less  than  that  on 
the  circle. 

If  both  surfaces  have  negative  curvature. 


the  construction  is  the  same,  but  with  in  the  above  replaced  by 
Ip^I,  P2  replaced  by  |p^|,  and  with  s  replaced  by  1-s.  Thus,  with 
|p,  I  >  IP2I  *  A,  we  have 


p(s)  =  -  CIP2I  +  (|pj  -  IP2I) 


sinh  6(1-3) 
sinh  6 


with  5  determined  by 

sinl^  1^1  I  -  j^2| 

5  “  A 


9 


while  with  jp^j  <  jp^l  +  A,  the  distribution  is 

p(s)  -  -[  Ip^I  -  2A(1-3)  -  (Ip^I  -  Ip, I  -  2A) 


with  6  from 


slnh  6  1*^21  -  l^ll  ^ 

6  “  A 

The  cases  with  different  curvature  on  the  two  surfaces  require 
that  the  radius  of  curvature  pass  through  infinity,  i.e.,  that  there  be 
a  flat  surface  somewhere  in  between.  With  p,  >  0  and  p^  <  0,  the  loca¬ 
tion  of  this  flat  surface  is  calculated  as 


3 

0 


^  1 


if  p,  <  IP2! : 


and  by 
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APPENDIX  H 


FEEDBACK  LIMITATION  ON  ACCELERATION  PARAMETERS 


Since  the  Iterative  adjustment  of  the  control  functions  for  bound¬ 
ary  orthogonality  Is  a  feedback  loop,  the  SOR  acceleration  parameters 
must  be  limited  for  stability.  This  arises  as  follows. 

From  the  generation  equation,  Eq.  (B-11)  of  Appendix  B,  since  the 
central  terms  of  the  second  derivatives  are  factored  to  the  left  for  the 
Iterative  solution,  the  change  In  c  due  to  a  change  In  the  control  func¬ 
tion  Is  approximately. 


I  s'*"  Af,  r. 


Ar  -  u) 


k  -^k 


2  I  g 

k 


kk 


where  u  Is  the  acceleration  parameter.  Then 


J 

2  I  g"" 


i=1 ,2,3 


Also,  from  Appendix  D,  the  change  In  the  control  functions  due  to 
the  change  In  c  j,  that  occurs  when  orthogonality  Is  Invoked  Is 


AP^  - 


n  ~  I 

~ —  .  Ar  -  •  (2Ar) 

/gjj^  ha 


AP  -  ~  m  “  J  *  (2Ar) 

C  ®nn  C 


1 

AP-  -  —  (r  -  -21!  r  )  .  (2Ar) 
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where  d  is  the  unit  normal. 


Now,  since 


r  •  Ar 

r 


r  •  Ar 
-^m  - 


r  •  Ar 
~^n  - 


2  I  g** 

k 


rii 

8 


g”“g„AP  +  g""g„.AP 
nun  m  mn  n 


mm  . nn  .  „ 

«  "  8  8nn88„ 


®ml®mm  .  „  + 

- F — 

G  m 


^nn^mn  ^mm^nn  _ 

G  m  G  ^  n 


with  G  -  gjn^gjjn  ~  gmn.  Substitution  for  the  changes  in  the  control 


functions  then  yields,  after  some  cancellations. 


r  0  • 


r  •  Ar 
-^m  - 


r  •  Ar 

'c"  ' 


r  ,  •  Ar 

r 


r  ^  •  Ar 
-^m  - 


r  •  Ar 


so  that,  the  stability  requirement  Is 
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APPENDIX  I 


PREVENTION  OF  ONE-DIMENSIONAL  OVERLAP 


Consider  the  ID  form  of  the  elliptic  generation  system,  Eq.  B-11 


•  ’”‘5  ■  ° 


With  the  switching  coefficient  A  for  the  first  derivative  (cf.  Section 
II-F19,  p.  167)  and  a  central  difference  for  the  second  derivative,  this 
becomes 


^^>1  ■  >  x^_^)  +  P  ( 


X,  ,  -  X,  ,  X.  ,  +  X,  , 

1'*’1  i'll  .  l,^l  f  1+1  i“1  1 

- 2 - >  *  ^ - 2 -  -  x.j  =  0 


(Here  A=0  gives  a  central  difference  for  the  first  derivative  and  A=1 
gives  a  one-sided  difference.)  Thus 

(I  •  A  111)!*,.,  '  X,.,)  *  I  (x,.,  -  Xj.,) 

X.  2"+  a|p| 

Then  Xj^  S  requires  A  i  P-2/|p|  while  x^  S  Xj__^  requires  ei¬ 
ther  P  ^  0,  or  A  2;  1  -  2/ (p  I  if  P  <  0.  Thus  in  general  ^  x^  S 


A  2  1  - 


Thus  A  is  taken  as 


IpI  S  2 


P  >  2 
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APPENDIX  J 

ZERO-CURVATURE  INTERSECTION  ON  SPLINED  SURFACE 

The  use  of  zero- curvature  Neumann  boundary  conditions  requires  that 
a  boundary  point  moves  over  the  surface  to  lie  at  the  intersection  of 
the  extrapolated  grid  line  and  the  surface,  the  extrapolation  being  done 
by  a  straight  line  extension  from  the  first  two  points  off  the  surface: 


The  boundary  point  is  thus  determined  as  the  intersection  of  a  straight 
line  and  a  splined  surface.  The  surface  spline  is  set  up  as  in  Appendix 
F,  and  the  intersection  is  determined  by  Newton  iteration,  also  as  in 
that  appendix  but  with  a  different  nonlinear  function. 

Since  a  point  on  the  surface  spline  is  given  by  Eq.  (F-2),  the  in¬ 
tersection  is  determined  by  the  solution  of 

r(u,v)»R+ts  (1) 

where  t  is  the  unit  vector  from  to  g,  i.e.,  tangent  to  the  incoming 
grid  line  at  g.  The  Newton  iteration  thus  solves  for  the  solution 
(u,v,s)  of 
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r 


F(u,v,3)  »  (R  -  r)  +  ts  =  0 


(2) 


The  iteration  then  is 


where 


From  (2), 


F 


~u 


r 

~u 


F 


-V 


Cv 


F  -  t 

-3 


(3) 


(4) 


(5a) 

(5b) 

(5c) 


where  and  Cy  by  Eq.  (F-6).  (The  C  of  this  appendix  should  not 

be  confused  with  the  F  of  Appendix  F.) 
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Appendix  K 


SURFACE  GRID  GENERATION  SYSTEMS 

The  grid  generation  system  given  by  Eq.  (11)  of  Appendix  B  (Warsi 
[1])  Is  for  generation  in  general  three-dimensional  regions.  The  two- 
dimensional  form  of  this  system  serves  to  generate  a  grid  in  general 
two-dimensional  regions  in  a  plane.  It  is  also  of  interest,  however,  to 
generate  two-dimensional  grids  on  general  curved  surfaces: 


2 


Here  the  surface  is  specified,  and  the  problem  is  to  generate  a 
two-dimensional  grid  on  that  surface,  the  third  curvilinear  coordinate 
being  constant  on  the  surface.  The  configurations  of  the  transformed 
region  will  be  the  same  as  for  the  general  case,  i.e.,  composed  of  con¬ 
tiguous  rectangular  blocks  in  a  plane,  with  point  locations  and/or  coor¬ 
dinate  line  slopes  specified  on  the  boundaries.  These  boundaries  now 
correspond  to  curves  on  the  curved  surface  of  the  physical  region.  The 
problem  is  thus  essentially  the  same  as  that  discussed  for  two-dimen¬ 
sional  plane  regions,  except  that  the  curvature  of  the  surface  must  now 
enter  the  partial  differential  equations  which  comprise  the  grid  genera¬ 
tion  system. 
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r 


r 


A3  for  general  regions,  algebraic  generation  systems  based  on  in¬ 
terpolation  can  be  constructed.  The  problem  can  also  be  considered  as 
an  elliptic  boundary- value  problem  on  the  surface  with  the  same  general 
features  discussed  in  Appendix  B  being  exhibited  by  the  elliptic  genera¬ 
tion  system. 


Surface  grid  generation  (Warsi  [1]) 


An  elliptic  generation  system  for  surface  grids  can  be  devised  from 
the  formulae  of  Gauss  and  Beltrami.  The  starting  point  is  the  set 
formed  by  the  formulae  of  Gauss  for  a  surface,  which  for  a  surface, 
=■  constant,  (v  =  1,2,  or  3)  are  given  by 


(1) 


where  the  variation  of  the  indicies  a,$  and  6  is  over  the  two  coordinate 
indices  different  from  v.  (Greek  coordinate  indices  are  used  here  to 
set  apart  the  coordinates  generated  on  a  surface  from  those  generated  in 
a  three-dimensional  region  in  general). 
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The  unit  normal  the  coefficients  b^g,  and  the  surface  Christoff  els 
(T),  are  given  by  Eqs.  (15),  (20),  (3^1),  (35)  of  Appendix  A  of  Ref.  [1]. 
The  indices  a, 6  each  assume  the  two  values  different  from  v.  For  each 
V,  with  (a,B,v)  taken  in  cyclic  order,  we  have 


r  =It®  r+n^b 
~_a^a  ,  aa  -.6  -  aa 

t.  ^  6  t. 


r  0  =  1  I'  X  n^'^^b 


-  6,6  “  I  ”^68  -,6  "  -  *^8B 


(2a) 

(2b) 

(2c) 


with  5  assuming  the  two  values,  a, 8. 

A  surface  grid  generation  system  that  Is  analogous  in  form  to  that 
based  on  the  Poisson-type  equations  in  a  plane  given  in  Appendix  B  can 
be  constructed  by  multiplying  Eq.  (2a,b,c),  respectively,  by  “, 

2Gyg“®,  Gyg®^  and  adding.  This  gives,  after  some  algebra, 


-  Vi  ~^a 


(3) 
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,(v) 


G  [k^ 
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g  D 
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(7) 
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The  quantities  and  are  the  local  principal  curvatures  of 

the  surface  c'^=con3tant .  It  must  be  noted  here  the  as  defined  in 

(6)  is  based  on  the  intrinsic  values  of  b^^g.  That  is,  the  b^^g  are 
solely  determined  by  the  data  and  coordinates  as  available  in  the  sur¬ 
face  . 

The  operator  ^2  is  called  the  Beltrami  second-order  differential 
operator,  and  in  general  is  defined  as 


A 


(v) 

2 


1  ^  3  I  ^  (g  ^ 

3?“  3C“ 

V  V 
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/G 
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Thus 
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(v),o 
2  ^ 


(^) 

/G  /G 

V  V 


,g, 


(^)] 


35®  /G 


i''''?®  ■  ^  (4l)] 

/G  35^  /G  3C  /G 

V  V  V 


(8) 


(9a) 


(9b) 


The  generation  system  is  now  formed  by  taking,  in  analogy  with  Eq. 
(7)  of  Appendix  B, 

-  I  I  g®”  (lOa) 

M  O 

-  I  I  g"”  p“  dot.) 

u  0 
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where  u  and  o  each  assume  the  two  values  in  the  summation.  Here  the 
are  the  symmetric  control  functions.  Thus  the  equations  for  the 
generation  of  surface  grids  are  (with  C  “  ix  +  iy  +  l<z) 


(11) 


where 


^  3^  3^ 

D  =  goo  — T— T  -  2g^^  — +  g 


63  a6  acx  ^^63^6 


.  s-i- 

3^“ 

3C^ 

(12) 

"  =  «66  C  - 

2g  p“ 

‘‘ae  a6 

+  g 

aa 

(13) 

*  ®33  ^aa  " 

2g  P® 

®ae  a6 

+  8 

aa 

p® 

36 

(m) 

The  left-hand  side  of  Eq.  (11)  here  corresponds  exactly  to  the  2D  form 
of  Eq.  (11)  of  Appendix  B,  for  the  plane.  However,  here  we  have  the 
complete  3D  forms  of  the  metric  elements. 


2  2  2 
g  =  X  -f  y  +  z 
aa  a 


(15a) 


2  2  2 
K  =  X  +  V  +  Z 
^66  ^6  ^^6  ^8 


(15b) 


8n,fi  =  ft  *  y  A  ^  2  0,2  B 

e“  5“  E®  e“  S® 


(15c) 


The  effect  of  the  surface  curvature  enters  through  the  inhomogenous 
terra,  in  particular  through  which  is,  in  fact,  equal  to  twice  the 
product  of  /G^  and  the  mean  curvature  of  the  surface.  Here,  as  for  the 
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plane,  the  control  functions,  P^g.  are  considered  to  be  specified.  This 
system  corresponds  to  the  following  system  in  the  physical  space,  from 
(10), 


S 

G 


(16a) 


A 


(v)  6 
2  ^ 


I 

G 


(16b) 


Thus  the  Beltrami  operator  on  the  general  surface  replaces  the  Laplacian 
operator  in  the  plane.  If  the  surface  is  a  plane,  the  Beltrami  operator 
reduces  to  the  Laplacian. 

If  only  the  two  control  functions  and  are  included,  the 
surface  grid  generation  reduces  to  the  more  practical  system 


8„«(r  +  Pr  )  +  g  (r  „  „  +  Qr  - )  -  2g  .r  -  (17) 


corresponding  to  the  plane  system  given  by  the  2D  form,  Eq.  (10)  of 
Chapter  H.  In  the  physical  plane  this  system  is 


A 


(v)  a 
2  ^ 


(18a) 


A 


(v)  B 
2  ^ 


(18b) 


Equation  (3)  is  the  basic  equation  for  the  generation  of  curvilinear 
coordinates  in  a  giver  surface.  From  (6)  the  function  R^"^^  depends  on 
the  principal  curvatures  and  The  sum  +  k|j^  is  twice 

the  mean  curvature  of  the  surface,  and  its  value  is  invariant  to  the 
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coordinates  introduced  in  the  given  surface.  If  the  equation  of  the 


surface  in  the  form  =  f(x^,X2)  is  available,  then  from  elementary 
differential  geometry 

=  [(1  +  q^)r  -  2pqs  +  (1  +  p^)t]/(1  +  p^  +  (19) 

where 


For  arbitrary  surfaces  it  is  always  possible  to  use  a  numerical  method, 
e.g.,  the  least  square  method,  to  fit  an  equation  in  the  form 
X2=f(x^,X2)  ,X2,X2)=0  and  to  obtain  the  needed  partial  deriva¬ 
tives  to  find  as  a  function  of  x^,X2,X2. 

It  is  more  general,  however,  to  generate  a  new  coordinate  system 
based  on  an  already  existing  coordinate  system  in  a  given  surface.  Let 
the  surface  on  which  the  new  grid  is  to  be  generated  be  specified  para¬ 
metrically  by 

r  =  r(u,v)  (20) 


(For  example,  the  parameters  (u,v)  might  be  latitude  and  longitude  on  a 
spherical  surface.)  If  the  specified  Cartesian  coordinates  on  the  sur¬ 
face  form  a  finite  set  of  discrete  points,  a  smooth  interpolation  scheme 
is  needed  to  recover  the  differentiable  functions  in  (20).  To  attain 
the  desired  smoothness  in  the  parametric  representation  (20),  it  is  gen¬ 
erally  preferable  to  divide  the  given  surface  into  a  suitable  number  of 
patches  such  that  each  patch  is  representable  by  a  bicubic  spline  with 


r 


r 


suitable  blending  functions.  Having  once  established  the  smooth  para¬ 
metric  functions  (20),  it  is  now  possible  to  introduce  any  other  desired 
coordinate  system,  say  on  the  surface. 

For  example,  a  surface  coordinate  system  ^“,5^  of  the  configuration 


might  be  generated  on  a  surface  defined  by  the  parametric  coordinates 
(u,v)  in  a  latitude-longitude  configuration: 


Alternatively,  a  surface  may  be  defined  in  terms  of  cross-sections,  in 
which  case  one  of  the  parametric  coordinates  (u,v)  runs  around  the  sec¬ 
tion  and  the  other  connects  the  sections: 


1^ 
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The  fundamental  equations  for  the  generation  of  on  the  sur¬ 

face  =  constant  can  be  obtained  from  Eq.  (17)  in  the  form 


+  g  P  r  +  g  Q  r  = 
B6  -^o  act 


(21) 


Here  we  have  taken 


.(v).a  %  p 

\) 


(v)  B  _  faa  Q 
\) 


(22a) 


(22b) 


Now  using  the  chain  rule  of  differentiation,  we  can  write  c  g,  c 
r  a  B*  in  terms  of  Cyt  Cyt  Cyu*  ®tc.  Thus,  for  example, 


r  »  r  u  +  r  V 

-^a  -u  -V 


r  „=ru  „+ru  „+(r  u„+r  v„)u 

■e“c“  5“e®  es®  «“  5®  «“ 


(23) 


+(r  u.+r  V-)v 
-uv  ^6  ~vv  ^B 


8„»r  •i"„=(r’  •r)u  u.  +  (r  •r)v  v. 

"aB  -^a  -^B  -u  -u  ^B  -v  -v  ^a  ^B 


+  (r  •  r  )(u  V  .  +  u  .V  ) 
-V  jO  ^6  jO 


(21) 
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(25) 


K  =KU  +«VV  +K(uv  +UV) 

^aa  *‘66  “06^  ^6 


with  the  g  quantities  as  defined  below.  Substituting  these  derivatives 


in  ( 21 ) ,  we  get 


-  [.'"’r  .  r'''> 

V  -  -  V 


where 


-(v)  ^  -  3^  _  -  3^  ^  -  3^ 

®66  3u3u  ®a6  3u3v  ^  ®ao  3v3v 


J  =u  v.-u.v 

"  56  jO 


G  =  g  g  -  g^ 

V  *‘66*‘aa  “06 


he  =  •  ^:v'  8a6  =  !=u  *  ^cxo  = 


To  isolate  the  differential  equations  for  u  and  v  as  dependent 
variables  from  (26),  we  take  the  dot  product  of  Eq.  (26)  with  r^^,  and 
then  with  r^,  and  use  the  conditions 

r  •  «  0,  r  •  =  0 

~u  ~  -v  ~ 


Surface  grid  generation  system 


The  generation  system  then  is 


+  Pu  )  +  g(u  .  .  +  Qu  „)  ~  2bu 


t2. 

„  =  J.AoU 


(31a) 


(31b) 


a(v  +  Pv  )  +  c(v  „  o  +  Qv  .) 

C“5“  iV  5® 


2bv  „  »  J  A,v, 
5“t'  ”  ' 


where 


*  ■  vie  '  ^V,e\e  *  vle 


(32a) 


=  Soo'^  flV  +  g  o(u  -V  +  U  V  .)  +  g  U  -U 

SB  ^OL  aB  ^B  ^B  aa.  ^B 


(32b) 


_  2  —  — 2 
°  =  Sqo''  +  2g  .u  V  +  g  u 

BB  aB  ,a  a  aa  _a 


(32c) 


J  J 

V  V 


(33a) 


A  V  r^aai  a  (■foB'i'i  , 


(33b) 


(Here  the  Beltramlane  have  been  re-defined  to  be  multiplied  by  J^^.) 
Note  that  the  metric  quantities  with  an  overbar  relate  to  the  surface 
definition  in  terms  of  the  parametric  coordinates  and  therefore  can  be 
calculated  directly  from  the  surface  specification  by  Eq.  (30). 

The  Beltramians  of  Eq.  (32)  are  expanded  for  implementation  to 


(3^13) 


ijV  -  ^  -  <8„5)J  -  (8„„(J^),  -  8„8(J^)J 


(3'lb) 


with 
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(ft  )  »  2r  •  r  (g„o)  “  2r  •  r 

*aa  u  -u  -uu  6B  u  ~v  -uv 


•  Cuv  =  2r:^  • 


(ft  )  =  r  •  r  +r 

-V  ~uu  -u 


uv 


(g)  «r  -r  +r  •  r 
aB  V  -u  ~vv  ~v 


uv 


(•"v^u  =  -  tSaa^«BB^u  *  ^BB^^aa^u  '  (g^B ^u^ 


J_ 

2/G 


_1_ 

2/G 


“  -  -=  tg„a(g08>v  ^  8BB^«aa^  "  ^^aB^^uB^^ 


Further  diacuaalon  is  given  in  Reference  17. 
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OPERATIONS  LIST  -  INPUT 


AVERAGE . 121 

BLOCK . 116 

CONTROL . 123 

CUT . 120 

EXTRAP . 125 

FIELD . 121 

FILE . 118 

FIX . 119 

IMAGE . 121 

INITIAL . 123 

INTERP . 121 

LIST . 119 

NEUMAN . 119 

NEUMaNI  or  NEUMAN2  or  NEUMAN3 . 119 

ORTHOG . 120 

OUT . 119 

POINT . 125 

REFLECT . 120 

SETVAL . ^2^ 

SIZE . 124 

SMOOTH . 122 

SPACE . 123 

STORE . 124 

SUB . 118 

SURFACE . 125 

UNFIX . 124 


SUBROUTINES  LIST 


ACOSG .  273 

AITKEN .  272 

AVGCON .  263 

BLKON .  275 

BONCON .  263 

CCDR .  269 

CCDW .  268 

CCD1 .  269 

CCD2 .  269 

CCD3 .  269 

CHKCON . 

CHKINT .  265 

CHKNEU .  273 

CHKORT .  273 

CHKREF .  27H 

CHKSET .  265 

CHKSUB .  265 

CHKTYP . 26l| 

CONFUN .  250 

CONINT . 211 

CONLINE .  200 

CONLINR .  208 

CONSETE .  226 

CONSETU .  22  H 

CONSURF .  187 

CONSURR .  20i| 

COSO .  273 

CUTCON .  26»< 

DEFAUL .  233 

DEFCON .  264 

DERP3 .  280 

EXTCON .  251 

EXTCOR .  250 

FIXIMG .  150 

IMGIMG .  146 

IMGPTS .  151 

JACBCK .  250 

LIM .  265 

MERP2,  MERP3  .  280 

MOVEIN .  275 

NEUIDX  .  .  .  .  . .  249 

NEUPTS .  251 

OFF .  197 

OPTACC .  21  9 

ORIDX .  249 

PRTGRD .  270 

READS .  274 

READF.  .  . .  269 

READL .  270 

READS .  274 

REDRES .  272 
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REFCON 
REFPTS 
R2DPTS 
SETACC 
SETAXS 
SETIMG 
SETIMI 
SETIMO 
SETIMP 
SETIMR 
SETNEU 
SETNOR 
SETOBJ 
SETORT 
SETREF 
SETRES 
SETR2D 
SETSPA 
SETSPL 
SETYPE 
SING  . 
SMOOTH 
SPLCUR 
SPLINT 
SPLSUR 
SSD.  . 
SSDR  . 
SSDW  . 
SSD1  . 
SSD  3  . 
SURCOR 
SURSYS 
TANG  , 
TERPR. 
TERP1  . 
TERP2. 
TERP3. 
TRANS. 
VOLSYS 
WRTGRD 
WRTPLT 
WRTRES 
WRTRRR 
WRTXYZ 


263 

261 

262 

2i*2 

240 
242 
244 
244 
154 
152 

234 

241 
237 

235 

236 
234 
240 

237 

238 
234 
273 
223 
232 
278 
231 
145 
268 

267 

268 
268 
280 
275 
273 
187 
182 
184 
186 
158 
212 
271 

271 

272 
272 
271 
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